主题：如何引用求和的条件

Dim sx1 As WinForm.ComboBox = e.Form.Controls("筛选1")
Dim sx2 As WinForm.ComboBox = e.Form.Controls("筛选2")
Dim sx3 As WinForm.ComboBox = e.Form.Controls("筛选3")

Dim 筛选项目求和 As Double = 0 

 If sx2.text = "大于" Then
       Filter = " " & sx1.text & " >  '" & sx3.text & "' "
 ElseIf sx2.text = "小于" Then
        Filter = " " & sx1.text & " <  '" & sx3.text & "' "
 ElseIf sx2.text = "等于" Then
        Filter = " " & sx1.text & " =  '" & sx3.text & "' "
 ElseIf sx2.text = "不小于" Then
        Filter = " " & sx1.text & " >=  '" & sx3.text & "' "
 ElseIf sx2.text = "不大于" Then
        Filter = " " & sx1.text & " <=  '" & sx3.text & "' "

end if

                For Each dr As Row In Tables("教职工信息表").Rows
                    If Filter Then
                       筛选项目求和 =  筛选项目求和 + 1

                    End If
                Next