做了个下拉选择框,但是下拉框(dropdownbox)是检索 “A表”的数据的,但是A表的数据是不断在发生变化的,如何让下拉检索A表时实时刷新A表的内容? 是否需要设置下拉窗口的代码?
此主题相关图片如下:1.png
下拉框 TextChanged事件为:
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
'下面两行没起作用
Dim t As Table = Tables("win_选择电脑设备_table_选择电脑设备")
t.DataTable.Load(False)
Dim tbl As Table = Tables("win_选择电脑设备_table_选择电脑设备")
If drp.Text = "" Then '如果内容为空
tbl.Filter = "资产卡片号 is not null " '显示所有设备
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'%" & drp.Text & "%'"
tbl.Filter ="资产卡片号 is null " & "and (设备类型 Like " & txt & "Or 所在科室 Like " & txt & " Or 所在房间 Like " & txt & ")"
'msgbox(tbl.Filter)
'tbl.Filter = "姓名 Like " & txt & " Or 单位 Like " & txt & " Or 部门 Like " & txt & " Or 手机 Like " & txt & "Or 短号 Like " & txt & "Or 邮箱 Like " & txt & "Or QQ Like " & txt & "Or QQ Like " & txt & "Or 微信 Like " & txt & "Or 办公电话 Like " & txt
End If
End If
[此贴子已经被作者于2019/3/20 9:45:37编辑过]