已经在TAB里的currentchanged 写了If Tables("主窗口_车辆维修申请表").Current IsNot Nothing Then Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("主窗口_车辆维修申请表").FindRow(dr)
If wz >=0 Then
Tables("车辆维修申请表").Position = wz
End If
End If
如果不在搜索栏里赛选，双击TAB表弹出的是目标行。
此主题相关图片如下：2.jpg
如果在搜索栏了输入“007”，再双击晒选后行，弹出的还是之前的行
此主题相关图片如下：3.jpg
如果在Currentchanged 里再加With e.Form Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("主窗口_车辆维修申请表").FindRow(dr)
If e.Form.Controls("模糊条件") <> "" Then
Tables("车辆维修申请表").Position = wz
End If
End With 报错了，怎么改？
加好友 
发短信
Post By：2020/1/8 16:18:00 [只看该作者]
