主题：高手解答

Dim filter As String = "1=1"

If e.Form.Controls("ComboBox1").text > "" Then

    filter &= " and 店名 = '" & e.Form.Controls("ComboBox1").value & "'"

End If

If e.Form.Controls("ComboBox2").text > "" Then

    filter &= " and 对账品名 = '" & e.Form.Controls("ComboBox2").value & "'"

End If

jb.Filter = filter