以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助TAB筛选后,双击TAB弹出的不是对应行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145108) |
-- 作者:lisangyu -- 发布时间: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表弹出的是目标行。 如果在搜索栏了输入“007”,再双击晒选后行,弹出的还是之前的行 如果在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 |
-- 作者:lisangyu -- 发布时间: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楼代码 |
-- 作者:lisangyu -- 发布时间:2020/1/8 16:48:00 -- 感谢蓝老师 |