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

大概这样子吧，其它自己写

 

If e.form.controls("ComboBox1").value = "" Then
    messagebox.show("请输入或选择来源例.")
    Return
ElseIf e.form.controls("ComboBox2").value = "" Then
    messagebox.show("请输入或选条件例.")
    Return
End If

Dim s1 As Object = e.Form.Controls("ComboBox1").Value
Dim s2 As Object = e.Form.Controls("ComboBox2").Value
Dim sum As Double = DataTables("支出明细").Compute("Sum(金额)",s1 & " = '" & s2 & "'")
Dim r As Row = Tables("应付").AddNew
r("应付金额") = sum
Forms("窗口1").close()

你用了循环语句，drs.count有多少就增加多少行了。