|
Select Case e.DataCol.Name
Case "合同编号","日期"
Dim dc As DataRow = e.DataRow
Dim filter1 As String
filter1 = "合同编号 = '" & dc("合同编号") & "' And 日期 = '" & dc("日期") & "' and 设备 like 's%'"
Dim s = DataTables("a").Compute("SUM(完成数量)",filter1 )
dc("完成数量_工序s") = s
filter1 = "合同编号 = '" & dc("合同编号") & "' And 日期 = '" & dc("日期") & "' and 设备 like 'd%'"
Dim d = DataTables("a").Compute("SUM(完成数量)",filter1 )
dc("完成数量_工序d") = d
End Select
|
加好友 
发短信
Post By：2015/11/26 16:19:00 [显示全部帖子]
