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