标题：[求助] 重置列的问题

1楼

xuxingbo 发表于：2023/11/10 18:02:00

DataColChanged表事件编辑

If e.DataCol.Name = "到货情况" Then

e.DataRow("设备材料总数") = DataTables("备件明细").SQLCompute("count(ERP计划号)", "[ERP计划号] = '" & e.DataRow("ERP计划号") & "'")

e.DataRow("设备材料到货数") = DataTables("备件明细").SQLCompute("count(ERP计划号)", "[ERP计划号] = '" & e.DataRow("ERP计划号") & "'and [是否到货] = '是'")

e.DataRow("到货情况") = e.DataRow("设备材料到货数") / e.DataRow("设备材料总数")

End If

我只编辑了几行代码每当重置“到货情况”列的时候会出现明显的5秒的卡顿，请问这个是什么原因怎么改？

2楼

有点蓝 发表于：2023/11/11 8:27:00

If e.DataCol.Name = "ERP计划号" Then

e.DataRow("设备材料总数") = DataTables("备件明细").SQLCompute("count(ERP计划号)", "[ERP计划号] = '" & e.DataRow("ERP计划号") & "'")

e.DataRow("设备材料到货数") = DataTables("备件明细").SQLCompute("count(ERP计划号)", "[ERP计划号] = '" & e.DataRow("ERP计划号") & "' and [是否到货] = '是'")

elseif e.DataCol.Name = "设备材料到货数" orelse e.DataCol.Name = "设备材料总数" Then

If e.DataRow.isnull("设备材料到货数") orelse e.DataRow.isnull("设备材料总数") orelse e.DataRow("设备材料总数")=0 Then

e.DataRow("到货情况") = Nothing

Else

e.DataRow("到货情况") = e.DataRow("设备材料到货数") / e.DataRow("设备材料总数")

End If

共2 条记录, 每页显示 10 条, 页签: [1]