Dim r As DataRow = e.DataRow
Select Case e.DataCol.name
Case "A","p"
If r("Class") = 2
r("V") = r("A") * r("P")
If e.DataCol.name = "A" Then
r("CA") = r("A") +DataTables("B").compute("sum(A)",fil)
Else
e.DataTable.datacols("ID").RaiseDataColChanged("Code = '" & r("FCode") & "'")
End If
End If
Case "CA","CP"
If r("Class") = 2
r("CV") = r("CA") * r("CP")
e.DataTable.datacols("ID").RaiseDataColChanged("Code = '" & r("FCode") & "'")
End If
Case "ID"
If r("Class") = 1
Dim fil As String = "汇总条件"
r("V") = e.DataTables("A").compute("Sum(V)",fil)
r("CV") = e.DataTables("A").compute("Sum(CV)",fil)
End If
End Select
加好友 
发短信
Post By：2016/10/13 16:20:00 [显示全部帖子]
