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
End If
加好友 
发短信
Post By：2023/11/11 8:27:00 [显示全部帖子]
