范范　发表于：2009-06-05 20:21:08 　

我有一个"订单"表,有关键字段"订单ID",如何才能找到特定"订单ID"所在的行号,如"订单ID='" & forms!查询!订单ID & "'",最好是在VBA中通过SQL直接获得行号值

82077802 发表于：2009-06-05 20:55:52

使用API函数sendmessage，获得光标所在行和列

Sub getcaretpos(byval 　TextHwnd&,LineNo&,ColNo&)
　注释：TextHwnd为TextBox的hWnd属性值，　　LineNo为所在行数，ColNo为列数
　　dim I&,j&,k& 注释：获取起始位置到光标所在位置字节数　　　　　　　　　I=SendMessage(TextHwnd,&HB0&,0,0) j=I/2^16 注释：确定所在行　　　　　　LineNo=SendMessage(TextHwnd,&HC9&,j,0)+1
　　注释：确定所在列
　　k=SendMessage(TextHwnd,&HBB&,-1,0)
　　ColNo=j-k+1
End sub

Top

沈军发表于：2009-06-05 22:03:43

你所说的行号是不是当前记录创建的次序号呢？

如果你只想在订单表去查询应该还是比较容易的：因为订单ID的值是自动由系统生成的，不会随便被人为修改，因此可以作为记录创建的次序，但由于中间记录有可能被人删除，因此当前的订单ID号并不能代表当前记录在这个表中的行号。

表名：订单表

主键字段：订单ID

在《订单表窗体》中使用下面函数可以了：

当前订单记录的行号/创建次序号=DCOUNT("订单ID","订单表","订单ID<=FORMS!订单表窗体!订单ID")

如果是在查询表中应该是这样的：

SELECT 订单表.*, DCount("订单ID","订单表","订单ID<=" & [订单ID]) AS 行号 FROM 订单表 ORDER BY 订单表.订单ID;

不知是不是你要的结果这样？

Top