- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 系统菜单很卡？？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59212)
-- 发布时间：2014/10/30 23:30:00
-- 系统菜单很卡？？？
最近发现系统菜单很卡， 有时候静止不动，怎么回事？
-- 发布时间：2014/10/31 8:15:00
--
计时器写了大量操作的代码?
-- 发布时间：2014/10/31 9:10:00
--
关键事件写了大量耗时代码，比如prepareEdit、drawcell等
-- 发布时间：2014/10/31 17:05:00
--
我发现好像是打开订单窗口后才发生这种问题， 我把代码导出来， 请甜老师看看！
-- 发布时间：2014/10/31 17:08:00
--
那你注释掉代码看是否卡
-- 发布时间：2014/10/31 17:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:我的代码.txt |
-- 发布时间：2014/10/31 17:26:00
--
下面这段代码会造成这个问题吗， 如何写的简洁些？
\'订单明细表里的所有项已完成都打钩后, 订单主表里的已完成自动打钩
\'订单明细表里的所有项已完成都打钩后, 订单主表里的已完成自动打钩, 发现订单明细表里有一项未完成,去掉勾后订单主表的已完成自动去掉勾勾
\'If e.DataCol.name="已完成" Then
\'Dim rlist As List(of DataRow)=e.DataTable.Select("工作号=\'" & e.DataRow("工作号") & "\'and 已完成=true")
\'If rlist.count=e.DataTable.Select("工作号=\'" & e.DataRow("工作号") &"\'").count Then
\'e.DataRow.GetParentRow("订单主表")("已完成")=True
\'Else
\'e.DataRow.GetParentRow("订单主表")("已完成")=False
\'End If
\'End If
\'
\'If e.DataCol.name="已下单" Then
\'Dim xdList As List(of DataRow)=e.DataTable.Select("工作号=\'" & e.DataRow("工作号") & "\'and 已下单=true")
\'If xdList.count=e.DataTable.Select("工作号=\'" & e.DataRow("工作号") &"\'").count Then
\'e.DataRow.GetParentRow("订单主表")("已下单")=True
\'Else
\'e.DataRow.GetParentRow("订单主表")("已下单")=False
\'End If
\'End If
\'
\'If e.DataCol.name="已发货" Then
\'Dim fhList As List(of DataRow)=e.DataTable.Select("工作号=\'" & e.DataRow("工作号") & "\'and 已发货=true")
\'If fhList.count=e.DataTable.Select("工作号=\'" & e.DataRow("工作号") &"\'").count Then
\'e.DataRow.GetParentRow("订单主表")("已发货")=True
\'Else
\'e.DataRow.GetParentRow("订单主表")("已发货")=False
\'End If
\'End If
-- 发布时间：2014/10/31 17:29:00
--
1、升级到最新版；
2、代码应该没什么问题，具体怎么操作的时候会卡？
-- 发布时间：2014/10/31 17:31:00
--
去掉这段代码好了， 现象时打开订单窗口， 点击其他菜单无反应
-- 发布时间：2014/10/31 17:32:00
--
但这段代码我需要， 老师给看看如何更改这段代码？
我目前就是最新版