主题：系统菜单很卡？？？

最近发现系统菜单很卡， 有时候静止不动，怎么回事？

我发现好像是打开订单窗口后才发生这种问题， 我把代码导出来， 请甜老师看看！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的代码.txt

下面这段代码会造成这个问题吗， 如何写的简洁些？

'订单明细表里的所有项已完成都打钩后, 订单主表里的已完成自动打钩
'订单明细表里的所有项已完成都打钩后, 订单主表里的已完成自动打钩, 发现订单明细表里有一项未完成,去掉勾后订单主表的已完成自动去掉勾勾
'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

去掉这段代码好了， 现象时打开订单窗口， 点击其他菜单无反应

但这段代码我需要， 老师给看看如何更改这段代码？

我目前就是最新版

写在那里呢

三个逻辑字段， 就写三段代码， 都放在systemready 中间吗

还是不行， 我放在订单明细表的

DataColChanged

事件里了， 代码放进去， 点击其他菜单就点不动了

 

----------------

systemready = False
If e.DataCol.name="已完成" Then
    Dim count1 As Integer = e.DataTable.compute("count(工作号)", "工作号 = '" & e.DataRow("工作号") & "' and 已完成 = true")
    If count1 = e.DataTable.compute("count(工作号)", "工作号='" & e.DataRow("工作号") &"'") Then
        e.DataRow.GetParentRow("订单主表")("已完成")=True
    Else
        e.DataRow.GetParentRow("订单主表")("已完成")=False
    End If
End If
If e.DataCol.name="已下单" Then
    Dim count2 As Integer = e.DataTable.compute("count(工作号)", "工作号 = '" & e.DataRow("工作号") & "' and 已下单 = true")
    If count2 = e.DataTable.compute("count(工作号)", "工作号='" & e.DataRow("工作号") &"'") Then
        e.DataRow.GetParentRow("订单主表")("已下单")=True
    Else
        e.DataRow.GetParentRow("订单主表")("已下单")=False
    End If
End If
If e.DataCol.name="已发货" Then
    Dim count3 As Integer = e.DataTable.compute("count(工作号)", "工作号 = '" & e.DataRow("工作号") & "' and 已发货 = true")
    If count3 = e.DataTable.compute("count(工作号)", "工作号='" & e.DataRow("工作号") &"'") Then
        e.DataRow.GetParentRow("订单主表")("已发货")=True
    Else
        e.DataRow.GetParentRow("订单主表")("已发货")=False
    End If
End If
systemready = True

报价明细表里也使用了同样类似的代码， 没有出现这个情况