数据表如下：窗口如下：
查询按钮代码如下：
For Each c As object In e.Form.Controls '遍历所有控件不为空
If Typeof c Is WinForm.TextBox OrElse Typeof c Is WinForm.ComboBox OrElse Typeof c Is WinForm.NumericComboBox Then '判断控件是否是文本框
If c.Value = Nothing Then
MessageBox.Show("请填写完整所有的数据!")
c.Select()
Return
End If
End If
Next
Dim filter As String = CExp("[温度下限] >= {0} And [温度上限] <= {1} And [材料分类] = '{2}'", e.Form.Controls("NumericComboBox2").Value, e.Form.Controls("NumericComboBox2").Value, e.Form.Controls("TextBox4").Value)
Dim drs As List(of DataRow) = DataTables("法规").SQLSelect(filter)
For Each dr As DataRow In drs
Dim s As String = dr("法规")
MessageBox.Show(s)
Next
有个问题是对于未填数据的格子，怎么才能不参与过滤条件，即无数据的格子总是符合条件的，true。
加好友 
发短信
Post By：2021/7/27 2:14:00 [显示全部帖子]
