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

 关键事件写了大量耗时代码，比如prepareEdit、drawcell等

 那你注释掉代码看是否卡

 1、升级到最新版；

 

 2、代码应该没什么问题，具体怎么操作的时候会卡？

 试试这样写

 

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
systemready = True

 替换原来的。

是