以文本方式查看主题

-  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 调试器,
而不是由此对话框处理。



图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图17年11月13日1722_1.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间: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 = ""

 

如果还有问题,实例发上来。