下面这段代码是放在字符框控件的keydown事件里面，希望达到找到对应单据就自动定位的功能。
If e.KeyCode = keys.Enter Then
Dim x As String = e.Form.Controls("TEXTBOX1").text
Dim dr As DataRow
dr = DataTables("工作单").sqlFind("[工作单号] = '" & x & "'")
If dr Is Nothing Then
msgbox("找不到此工作单")
Else
Dim wz As Integer = Tables("入库单_table1").FindRow(dr)
If wz >= 0 Then
Tables("入库单_table1").Position = wz
End If
End If
End If
入库单_table1是副本表，用fill方式加载，输入单号后回车，没有吧焦点定位到此行，而是在第一条记录原地不动？？？
单号肯定没错，试了几十次了
尝试 用
With Tables("入库单_table1")
.Position = .Position + 1
End With
可以正确移动
[此贴子已经被作者于2023/1/28 15:42:30编辑过]
加好友 
发短信
Post By：2023/1/28 15:31:00 [只看该作者]
