老师,红色的金额我让让他根据项目,费用明细然后进行汇总,请帮忙看看,谢谢
Dim w As Table = Forms("支出费用汇总").Controls("设备状态表").Table
For Each f As Row In Tables("收付款明细_信息查询").GetCheckedRows
Dim s2 As DataRow = w.DataTable.Find("项目='" & f("项目") & "' and 费用明细='" & f("费用明细") & "'")
If s2 Is Nothing Then
s2 = w.DataTable.addnew
s2("项目") = f("项目")
s2("费用明细") = f("费用明细")
s2("操作日期") = Date.Today
s2("操作人员") = _UserName
End If
s2("金额") = f("金额") (根据蓝色部分的条件进行汇总)
Next
w.RaiseCurrentChanged