将:
dr("当前规格_1") = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "'
改为:
Dim v As Integer = DataTables("坯料跟踪表").Compute("COUNT(熔铸编号)","[客户] = '" & nm(0) & "' And [合金] = '" & nm(1) & "' And [坯料规格] = '" & nm(2) & "' And [生产批号] = '" & nm(3) & "'
if v > 0 then
dr("当前规格_1") = v
end if
其他类似