下面这个代码计算的时候,每个任务的第一行修改的时候用时都非常久,下面的行用时却很快。
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq图片20180828185245.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-8/20188281855681283.png)
datacolchanged 代码:
Se/ect Case e.DataCol.name
Case "当月人天","任务人天","任务"
sum2 = DataTables("XMFP").Compute("Sum(当月人天)","BH = '" & e.DataRow("BH") & "' ")
dr = DataTables("xmzb").find("BH = '" & E.DataRow("bh") & "'")
Dim st As Date = Date.Now
dr("剩余") = dr("apc") - sum2
dr("总") = sum2
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
end se/ect
[此贴子已经被作者于2018/8/28 18:55:22编辑过]