主题：请高手帮忙求选定行的例的和

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim s1 As Object = e.Form.Controls("ComboBox1").Value
Dim s2 As Object = e.Form.Controls("ComboBox2").Value
Dim F As Object
If Tables("支出明细").Filter <> ""  Then
    F = "(" & Tables("支出明细").Filter & ") And "
End If
f  = f & F & s1 & " = '" & s2 & "'"
Dim drs As List(Of DataRow) = DataTables("支出明细").Select(f)
For Each dr As DataRow In drs
dr("对账") = "已对账"
Dim sum As Double = DataTables("支出明细").Compute("Sum(金额)",s1 & " = '" & s2 & "'")
Dim r As Row = Tables("应付").AddNew
r("应付金额") = sum
Next
Forms("窗口1").close()
此主题相关图片如下：2012-02-28_18-23-38.jpg

应付里有一个备注例。能不能=所有支出明细关单号的集合