'Dim cmd4 As New SQLCommand
'cmd4.C
'cmd4.CommandText = "Sel ect 已付金额,欠款金额,合同编号 From [采购入库] Where 合同编号= '" & e.DataRow("合同编号") & "'" '注意要包括主键列
'Dim dt4 As DataTable = cmd4.ExecuteReader() '注意可选参数设置为True
'If dt4.DataRows.Count > 0 Then
'dr("材料费") = dt4.Compute("Sum(已付金额)"," 合同编号 = '" & e.DataRow("合同编号") & "'")
'dr("材料费欠款") = dt4.Compute("Sum(欠款金额)","合同编号 = '" & e.DataRow("合同编号") & "'")
'Else
'
'dr("材料费") = 0
'dr("材料费欠款") = 0
'End If
上面的语句，我写成：SQL怎么写
Dim cmd4 As New SQLCommand
cmd4.C
cmd4.CommandText = "Sel ect sum(已付金额) as 已付金额合计,sum(欠款金额) as 欠款金额合计,合同编号 From {采购入库} group by 合同编号" '注意要包括主键列
Dim dt4 As DataTable = cmd4.ExecuteReader() '注意可选参数设置为True
下面怎么改呢？
If cmd4.ExecuteScalar > 0 Then
dr("材料费") = cmd4.ExecuteScalar
'dr("材料费欠款") = dt4.DataRows(0)("欠款金额合计")
Else
dr("材料费") = 0
' dr("材料费欠款") = 0
End If
加好友 
发短信
Post By：2016/12/8 18:05:00 [只看该作者]
