- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助TAB筛选后，双击TAB弹出的不是对应行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145108)
-- 发布时间：2020/1/8 16:18:00
-- 求助TAB筛选后，双击TAB弹出的不是对应行
已经在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 报错了，怎么改？
-- 发布时间：2020/1/8 16:28:00
--
搜索栏写了什么代码？
If e.Table.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
-- 发布时间：2020/1/8 16:33:00
--
textchangedl里是
With e.Form
If e.sender.text <> "模糊条件" Then
Dim dst As Table = Tables("主窗口_车辆维修申请表")
Dim txb1 As WinForm.TextBox = .Controls("模糊条件")
dst.Filter = "[车牌号] Like \'*" & txb1.text & "*\' or [驾驶员] Like \'*" & txb1.text & "*\'or [所属部门] Like \'*" & txb1.text & "*\'or [申请部门填写] Like \'*" & txb1.text & "*\'or [维修类型] Like \'*" & txb1.text & "*\'"
End If
End With
enter里 是e.sender.value = Nothing
leave里 是If e.sender.text = "" Then
e.sender.value = ""
End If
-- 发布时间：2020/1/8 16:38:00
--
currentchanged 改为2楼代码
-- 发布时间：2020/1/8 16:48:00
--
感谢蓝老师