Dim cmd4 As New SQLCommand
cmd4.C
cmd4.CommandText = "Sel ect sum(已付金额) as 已付金额合计,sum(欠款金额) as 欠款金额合计 From {采购入库} Where 合同编号= '" & e.DataRow("合同编号") & "'"
Dim dt4 As DataTable = cmd4.ExecuteReader() '注意可选参数设置为True
If dt4.DataRows.Count > 0 Then
dr("材料费") = dt4.DataRows(0)("已付金额合计")
dr("材料费欠款") = dt4.DataRows(0)("欠款金额合计")
Else
dr("材料费") = 0
' dr("材料费欠款") = 0
End If