此主题相关图片如下：屏幕截图 2020-10-29 222519.png
删除订单按钮代码：
If Tables("待审核订单_table1").Current IsNot Nothing Then
If MessageBox.Show("是否删除当前订单?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
'DataTables("订单付款明细表").SQLDeleteFor("订单号 = '" & Tables("待审核订单_table1").Current("订单号") & "'")
Tables("待审核订单_table1").Current.Delete
DataTables("销售订单").save
DataTables("销售明细表").save
End If
End If
销售订单DrawCell代码：
If e.Col.Name = "未付款" Then
If e.Row.IsNull("未付款") = False '且该列已经输入内容
If e.Row("未付款") > 0 Then
e.Style = "a"
End If
End If
End If
未升级前以上代码正常运行并且秒删选中订单，升级后，当删除选中订单时出错，并且遍历整个订单表，光标不停往下滚动，直到遍历结束耗时七八分钟（由于不能上传视频不能展现）。如果当前窗口表有1万行得遍历1万才能结束。如果注释销售订单中的DrawCell代码，此现象消失。
请老师帮忙看看什么原因导致的问题，谢谢！
[此贴子已经被作者于2020/10/30 4:48:41编辑过]
加好友 
发短信
Post By：2020/10/30 4:47:00 [显示全部帖子]
