| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]点击新增按钮后没有了反应，系统退出。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52779) |
| -- 作者：syzsyk -- 发布时间：2014/6/23 10:45:00 -- [求助]点击新增按钮后没有了反应，系统退出。 在点击新增按钮时，有个产地检疫申报表，当近3天没有数据时，进行提示，否则就新增。下面的按钮代码有什么问题，点击后，系统整个就没有了反应，几十秒后自动退出系统： Dim Filter As String Dim StartDate As Date = Date.Today().AddDays(-2) Filter = "[申报时间] > \'" & StartDate & "\' And 监督所名称 = \'" & User.Group & "\'" DataTables("产地检疫申报").LoadFilter = Filter DataTables("产地检疫申报").Load() If Tables("产地检疫申报").Current Is Nothing Then MessageBox.Show("对不起,没有产地检疫申报的数据,不能进行动物产地检疫工作记录!", "提示") Dim dt As DataTable = Tables("动物产地检疫工作记录").DataTable For Each dr As DataRow In dt.DataRows If dr.RowState = DataRowState.Added Then dr.Delete End If Next Else Tables("动物产地检疫工作记录").AddNew() Tables("动物产地检疫工作记录").Current("监督所名称") = User.Group Tables("动物产地检疫工作记录").Current("基本情况_检疫时间") = Date.Today Forms("产地检疫工作记录录入").Open End If |
| -- 作者：Bin -- 发布时间：2014/6/23 10:48:00 -- 请上例子. 是否DataColChanged事件有死循环代码 |
| -- 作者：syzsyk -- 发布时间：2014/6/23 12:25:00 -- 找到原因了，下面代码从新增按钮中删除放到该窗口AfterLoad中一切正常： Dim Filter As String Dim StartDate As Date = Date.Today().AddDays(-2) Filter = "[申报时间] > \'" & StartDate & "\' And 监督所名称 = \'" & User.Group & "\'" DataTables("产地检疫申报").LoadFilter = Filter DataTables("产地检疫申报").Load() |