Select Case e.Sender.name
Case "comboBox5"
Dim txt As String = e.Form.Controls("comboBox5").Text
Dim tbl As Table = Tables("客户明细表_Table1")
If txt = "" Then
tbl.DataTable.loadFilter = ""
tbl.DataTable.load()
Else
tbl.DataTable.loadFilter = "合同金额 >= " & txt
tbl.DataTable.load()
End If
End Select