此主题相关图片如下:a.png
同样是查询功能,在窗口中放置一个textbox控件,判断该控件的值是否为空,窗口菜单写代码Dim pm As WinForm.TextBox = e.Form.Controls("TextBox1")
If pm.Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = " ima02 like '%" & pm.Value & "%'"
Else
MessageBox.Show("空")
End If
相同的代码,放在窗口菜单中判断都是空,但在窗口中放置一个按钮判断就有值