此主题相关图片如下:qq截图20130329185134.jpg
自定义录入界面,有时会出现这样呢,有时正常?
代码如下
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("窗口1_Table1")
If drp.Text = "" Then '如果内容为空
tbl.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'*" & drp.Text & "*'"
tbl.Filter = "教师姓名 like " & txt & " Or 性别 Like " & txt & " Or 课程名称 Like " & txt & " Or 职称 Like " & txt
End If
End If