DataColChanged事件
Select Case e.DataCol.Name
Case "金额"
Dim idx = e.DataRow("科目编号").LastIndexOf(".")
If idx > -1 Then
Dim bh As String = e.DataRow("科目编号").SubString(0,idx)
Dim dr As DataRow = e.DataTable.Find(CExp("科目编号='{0}'",bh))
If dr IsNot Nothing Then
bh = bh & "."
dr("金额") = e.DataTable.Compute("Sum(金额)",CExp("[科目编号] like '{0}%' and [科目编号] not like '{1}%' and [_Identify] <> {2}",bh,e.DataRow("科目编号")&".",dr("_Identify")))
End If
End If
End Select
加好友 
发短信
Post By：2016/7/7 8:53:00 [显示全部帖子]
