以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  模糊输入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152977)
--  作者：朱女士
--  发布时间：2020/7/27 16:45:00
--  模糊输入
老师您好！
    我按照帮助自定义输入界面三，设计了模糊输入模块，按照步骤全部设计完毕，运行时在单元格输入一个字符就出现出错信息：NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：ddpsb,ChangeEdit
详细错误信息：
未将对象引用设置到对象的实例。
我的ddpsb,ChangeEdit代码为：
Dim txt2 As String=e.form.dropdownbox.text
Dim tb2 As Table = Tables("变压器模糊输入_Table1")
If txt2 = "" Then
    tb2.Filter = ""
Else
    txt2 = "\'%" & txt2 & "%\'"
    tb2.Filter = "变压器型号 Like " & txt2 &  " or 变压器类型 like "  & txt2 & " or 变压器容量 like " & txt2 & " or 电压等级 like " & txt2

  End If
错在哪里呢？请指教！
--  作者：有点蓝
--  发布时间：2020/7/27 17:05:00
--  
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=152965
--  作者：朱女士
--  发布时间：2020/7/27 17:19:00
--  
此网址打不开
--  作者：有点蓝
--  发布时间：2020/7/27 17:31:00
--  
可以打开，就是您上一个贴

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

Dim txt2 As String=e.form.dropdownbox.text
Dim tb2 As Table = Tables("变压器模糊输入_Table1")
msgbox(txt2 )
If txt2 = "" Then
    tb2.Filter = ""
Else
    txt2 = "\'%" & txt2 & "%\'"
msgbox(txt2 )
    tb2.Filter = "变压器型号 Like " & txt2 &  " or 变压器类型 like "  & txt2 & " or 变压器容量 like " & txt2 & " or 电压等级 like " & txt2
msgbox( tb2.Filter)
  End If