为什么我一换行 就卡死了。。。。
是触发CurrentChanged事件 代码如下: (选择存款会员窗口我是设置的独立窗口)
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
此主题相关图片如下:11.png
If Forms("存款管理").Opened Then
Forms("存款管理").Controls("社员ID").Text=e.Table.Current("社员ID")
Forms("存款管理").Controls("姓名").value=e.Table.Current("对方户名")
If Forms("选择存款会员").Opened =False Then
Forms("选择存款会员").Open
End If
'窗口打开 筛选
Dim txt As String = e.Table.Current("对方户名")
Dim tbl As Table = Tables("社员基本信息")
If txt Is Nothing Then
tbl.Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = "社员信息_社员姓名 Like " & txt & " Or 社员信息_常用联系人 Like " & txt & " Or 社员信息_付款人 Like " & txt
End If
End If