以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 应用程序中发生了无法处理的异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109502) |
-- 作者:zoyong -- 发布时间:2017/11/13 17:26:00 -- 应用程序中发生了无法处理的异常 有关调用实时(JIT)调试而不是此对话框的详细信息, 请参见此消息的结尾。 * ************** 已加载的程序集 ************** mscorlib 程序集版本: 2.0.0.0 Win32 版本: 2.0.50727.8825 (WinRelRS3.050727-8800) 基本代码: file:///C:/Windows/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll ---------------------------------------- ...... 2.DLL ---------------------------------------- System.Windows.Forms.resources 程序集版本: 2.0.0.0 Win32 版本: 2.0.50727.8825 (WinRelRS3.050727-8800) 基本代码: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_zh-CHS_b77a5c561934e089/System.Windows.Forms.resources.dll ---------------------------------------- System.resources 程序集版本: 2.0.0.0 Win32 版本: 2.0.50727.8825 (WinRelRS3.050727-8800) 基本代码: file:///C:/Windows/assembly/GAC_MSIL/System.resources/2.0.0.0_zh-CHS_b77a5c561934e089/System.resources.dll ---------------------------------------- ************** JIT 调试 ************** 要启用实时(JIT)调试, 该应用程序或计算机的 .config 文件(machine.config)的 system.windows.forms 节中必须设置 jitDebugging 值。 编译应用程序时还必须启用 调试。 例如: <configuration> <system.window s.forms jitDebugging="true" /> </configuration> 启用 JIT 调试后,任何无法处理的异常 都将被发送到在此计算机上注册的 JIT 调试器, 而不是由此对话框处理。 |
-- 作者:有点甜 -- 发布时间:2017/11/13 17:44:00 -- 你做什么操作、执行什么代码后报错的? |
-- 作者:zoyong -- 发布时间:2017/11/24 13:59:00 -- 问题出来了:在"TextBox1"文本框中执行动态筛选后点击下面的明细数据就跳出上面的错误 textchanged代码: Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("cw_lsbxql") If txt = "" Then tbl.Filter = "" Else txt = "\'%" & txt & "%\'" tbl.Filter = "项目名称 Like " & txt & " Or 对方户名 Like " & txt & " Or 类别 Like " & txt & " Or 对方账号 Like " & txt & " Or 合作公司 Like " & txt & " Or convert(支出, \'System.String\') Like " & txt & " Or convert(收入, \'System.String\') Like " & txt End If click代码: Dim tbl As Table = Tables("cw_lsbxql") e.Form.Controls("textbox1").Value = Nothing tbl.Filter ="" doubleclick代码: e.Form.Controls("TextBox1").Text ="" |
-- 作者:有点甜 -- 发布时间:2017/11/24 14:34:00 -- e.Form.Controls("textbox1").Value = Nothing
改成
e.Form.Controls("textbox1").Text = ""
如果还有问题,实例发上来。 |