-- 作者: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
|