以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下拉输入窗口提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57800)
--  作者：建筑人生
--  发布时间：2014/10/4 10:08:00
--  [求助]下拉输入窗口提示错误

在没有完整输入情况下可以正常使用，但想改变输入框内容时提示错误

 

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("电气型号规格_电气型号规格")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"

    MessageBox.Show(1)

 

    tbl.Filter = "型号规格 Like " & txt  ’提示错误的语句

 

    MessageBox.Show(2)

End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:录像5.zip

[此贴子已经被作者于2014-10-4 10:10:17编辑过]
--  作者：有点甜
--  发布时间：2014/10/4 10:36:00
--  

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("电气型号规格_电气型号规格")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt.Replace("*", "[*]") & "%\'"

    MessageBox.Show(1)

 

    tbl.Filter = "型号规格 Like " & txt  \'提示错误的语句

 

    MessageBox.Show(2)

End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框