- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于窗口菜单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107533)
-- 发布时间：2017/9/29 17:51:00
-- [求助]关于窗口菜单
此主题相关图片如下：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
相同的代码，放在窗口菜单中判断都是空，但在窗口中放置一个按钮判断就有值
-- 发布时间：2017/9/29 17:53:00
--
If pm.Value IsNot Nothing Then
改成
If pm.text = Nothing Then
-- 发布时间：2017/9/30 12:58:00
--
11
此主题相关图片如下：abc.png
还是不行，明明有内容，请测试
[此贴子已经被作者于2017/9/30 12:58:47编辑过]
-- 发布时间：2017/9/30 14:34:00
--
Dim pm As WinForm.TextBox = e.Form.Controls("TextBox1")
If pm.text > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = " ima02 like \'%" & pm.text & "%\'"
Else
MessageBox.Show("空")
End If