以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 项目查询时提示出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100643)

--  作者:wumingrong1
--  发布时间:2017/5/15 19:49:00
--  [求助] 项目查询时提示出错

 昨天还好好的,今天没有对涉及该方面的问题做任何修改。不知道为什么会出现以下情况?(今天打了【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


--  作者:有点蓝
--  发布时间:2017/5/15 20:34:00
--  
弹出看看filter的内容是什么

msgbox(filter)

另外窗口表有没有其它事件代码影响到了