- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 应用程序发生无法处理的异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97295)
-- 发布时间：2017/3/9 13:37:00
-- 应用程序发生无法处理的异常
应用程序发生无法处理的异常
此主题相关图片如下：qq截图20170309133519.png
-- 发布时间：2017/3/9 13:40:00
--
做什么操作？执行什么代码报错？
-- 发布时间：2017/3/9 13:55:00
--
基本运行都挺稳定的。
偶尔会出现这个现象。
每次重新启动程序就好了，没有再出现。
就是打开了一个窗口，有afterload代码
-- 发布时间：2017/3/9 14:32:00
--
在哪里打开窗口？打开窗口的事件代码，以及afterLoad的事件代码发上来看看。
-- 发布时间：2017/3/9 17:44:00
--
打开窗口bottom的代码:Forms("生产入库").open
afterload 代码
Dim jbr As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim id As Integer = user.name.IndexOf("@")
Dim str As String = user.Name.SubString(0,id)
jbr.text = str
e.Form.TimerInterval = 1000
e.Form.TimerEnabled = True
Dim gdhhh As WinForm.TextBox = e.Form.Controls("TextBox3")
DataTables("扫描配货明细").LoadFilter = "生产订单号码工单行号 = \'" & gdhhh.text & "\'"
DataTables("扫描配货明细").Load
DataTables("生产扫描异常").LoadFilter = "生产订单号码工单行号 = \'" & gdhhh.text & "\'"
DataTables("生产扫描异常").Load
Dim dr As WinForm.Button = e.Form.Controls("导入")
If user.IsRole("产控") Or user.IsRole("开发者") Then
dr.Enabled = True
Else
dr.Enabled = False
End If
Dim startdata As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Enddata As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
startdata.Value = Date.Today.AddDays(-7)
Enddata.Value = Date.Today
-- 发布时间：2017/3/9 18:53:00
--
你Timertick写了什么代码？
你表的AfterLoad写了什么代码？