在窗体中插入table控件,在打开窗体会列出表table绑定表的数据;
在输入查询条件之后会列出满足条件的列,但双击之后数据确实查询之前;
在textbox Textchanged查询代码为:
Dim tx As String = e.sender.text
Tables("客户信息管理_Table1").Filter = "[客户名称] Like '*" & tx & "*' or [业务负责人] like '*" & tx & "*'"
表positionchanged 代码:
If e.Table.Rows.Count>0 Then
If Forms("新增客户信息").opened Then
Tables("B_Client").Position= Tables("B_Client").Rows.count-1
Else
Dim dr As DataRow
dr = DataTables("B_Client").Find("[客户编号] = '" & e.Table.current("客户编号") & "'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("B_Client").FindRow(dr)
If wz >= 0 Then
Tables("B_Client").Position = wz
End If
End If
End If
表doubleclick 代码Forms("客户信息修改").Open
但是在查询结果上双击弹出的窗体带出的数据不是所选择的数据而是之前表数据,
请问应该如何处理;
[此贴子已经被作者于2016/3/4 15:25:15编辑过]