代码
Dim filter As String = "1=1"
Dim val As String = e.Form.Controls("ComboBox1").Text
If val > "" Then
filter &= " and 材料 = '" & val & "'"
End If
val = e.Form.Controls("TextBox1").Text
If val > "" Then
filter &= " and Convert(规格,'System.Int64') >= '" & val & "'"
End If
Dim fdr As DataRow = DataTables("价目表").Find(filter, "规格")
Tables("价目表").Filter = "_Identify = " & fdr("_Identify")