以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  代码求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186689)

--  作者：KB2020 --  发布时间：2023/5/20 11:27:00 --  代码求助 Dim tb1 As WinForm.Table = e.Form.Controls("Table1") Dim tb2 As WinForm.Table = e.Form.Controls("Table2") Dim djh As WinForm.DropDownBox = e.Form.Controls("单据号") If djh.Text = "" Then     MessageBox.Show("ERP单据号不能为空！") Else          MessageBox.Show(111)     Dim aaa As String = " 你输入的单据号 =\'" & djh.Value & "\'   "          MessageBox.Show(aaa) End If 这段代码执行程序就闪退，没看出有什么问题。MessageBox.Show(111)都不弹出

--  作者：有点蓝 --  发布时间：2023/5/20 11:46:00 --   代码放在什么事件的？应该是触发了其它的代码，导致死循环了

--  作者：KB2020 --  发布时间：2023/5/20 11:51:00 --   是的，找到原因了