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代码,此现象消失。
请老师帮忙看看什么原因导致的问题,谢谢!