主题：[讨论]自定义录入界面

此主题相关图片如下：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

第一次录入信息时  ，直接输入一个数字 敲回车键 就出现这样，第二次输入信息就没什么事了，不知道什么原因？

此主题相关图片如下：qq截图20130329204152.jpg

此主题相关图片如下：qq截图20130330104019.jpg

第一次 打开窗口 在这个控件上 查询 教师姓名 小鱼

 出现下面这样

 

此主题相关图片如下：qq截图20130330104121.jpg

第二次 查询 教师姓名 小鱼 才正常

 

此主题相关图片如下：qq截图20130330104045.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

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目330.rar

 

例子 打开可以试试  一、直接在教师姓名 查询     二、打开下拉窗口查询