共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：查找数据行
1楼
lihe60 发表于：2009/8/28 8:23:00“采购申请单”表的“采购申请单”窗口的“查找”按钮不能用，请指教。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
2楼
lihe60 发表于：2009/8/28 8:47:00来也匆匆，去也匆匆。
3楼
yuanbin 发表于：2009/8/28 9:03:00 是代码问题。应该是：
r = .FindRow("[申请单编号] = '" & forms("采购申请单").controls("textbox1").value & "'",0,true) '从当前行开始查找
r = .FindRow("[申请单编号] = '" & forms("采购申请单").controls("textbox1").value & "'",0,true) '从当前行开始查找
4楼
czy 发表于：2009/8/28 9:21:00表名也有问题吧？
With tables("采购申请单.采购申请单明细")
Dim r As Integer
r = .FindRow("[申请单编号] = '" & e.Form.Controls("TextBox1").Value & "'",.Position +1,true) '从当前行开始查找
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End With
With tables("采购申请单.采购申请单明细")
Dim r As Integer
r = .FindRow("[申请单编号] = '" & e.Form.Controls("TextBox1").Value & "'",.Position +1,true) '从当前行开始查找
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End With
共4 条记录, 每页显示 10 条, 页签:
[1]