报销表，DataColChanged事件
Select Case e.DataCol.Name
Case "报销时间","fa piao单位","金额"
If e.DataRow.IsNull("报销时间") = False AndAlso e.DataRow.IsNull("fa piao单位") = False Then
Dim dr As DataRow = DataTables("成本表").Find("时间=#" & e.DataRow("报销时间") & "# And 所属='" & e.DataRow("fa piao单位") & "'")
If dr Is Nothing Then
dr = DataTables("成本表").AddNew
dr("时间") = e.DataRow("报销时间")
dr("所属") = e.DataRow("fa piao单位")
End If
dr(e.DataRow("报销类别_Ⅰ")) = e.DataTable.Compute("Sum(金额)","报销时间=#" & e.DataRow("报销时间") & "# And fa piao单位='" & e.DataRow("fa piao单位") & "' and 报销类别_Ⅰ='" & e.DataRow("报销类别_Ⅰ") & "'")
End If
End Select
加好友 
发短信
Post By：2017/3/10 15:08:00 [显示全部帖子]
