试了几次,大概检查出来了,也就是在窗口录入信息时,下拉窗口必须的打开一次才能录入信息。也就是说:第一次不能直接在窗口录入信息(或查询信息) 能不能加个代码,不用先打开下拉窗口,而直接在窗口查询。
我是按这个做的 二、设计录入窗口
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