主题：[求助] 项目查询时提示出错

 昨天还好好的，今天没有对涉及该方面的问题做任何修改。不知道为什么会出现以下情况？（今天打了【360NSA武器库免疫工具】补丁）

 

查询按钮命令如下：

 

If e.Form.Controls("内容1").text = "" Then

MessageBox.Show("请输入要查询的内容!", "提示", MessageBoxButtons.OK)

Else
Dim filter As String = "1=1"

Dim 内容1 As String = e.Form.Controls("内容1").text
Dim 条件1 As String = e.Form.Controls("条件1").text

If 内容1 > "" AndAlso 条件1 > "" Then
    filter &= " and " & 条件1 & "  like '%" & 内容1 & "%'  "

Else
End If
Dim t As Table = Forms("基础数据管理窗口").Controls("Table1").Table
t.Filter = filter

End If

 

 

点击查询后弹出如下提示：

 

此主题相关图片如下：360截图20170515194312584.jpg

 

描述:
  Stopped working

问题签名:
  问题事件名称: APPCRASH
  Application Name: foxtable.exe
  Application Version: 2017.4.22.1
  Application Timestamp: 58f866e5
  Fault Module Name: KERNELBASE.dll
  Fault Module Version: 6.1.7601.23796
  Fault Module Timestamp: 59028e59
  Exception Code: e053534f
  Exception Offset: 0000c54f
  OS 版本: 6.1.7601.2.1.0.256.48
  区域设置 ID: 2052

联机阅读隐私声明:
  http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0804

如果无法获取联机隐私声明，请脱机阅读我们的隐私声明:
  C:\Windows\system32\zh-CN\erofflps.txt

弹出看看filter的内容是什么