以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]空值提示命令 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53138) |
-- 作者:wumingrong1 -- 发布时间:2014/6/30 17:35:00 -- [求助]空值提示命令 我有一个查询按钮命令如下;我希望在查询结果为 空 的时候不进行筛选而是弹出“你查找的纪录不存在”提示。 Dim flt As String For Each c As Col In Tables("工作日志表").Cols For Each ctl As WinForm.Control In e.Form.Controls If c.Name = ctl.Name Then If e.Form.Controls(ctl.Name).Text > "" Then If c.IsDate Then flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#" ElseIf c.IsString Then flt + = " And " & c.Name & " Like \'%" & e.Form.Controls(ctl.Name).Text & "%\'" End If End If End If Next Next If flt > "" Then flt = flt.SubString(5) Else MessageBox.Show("请输入查询条件") End If Tables("工作日志表").Filter = flt
|
-- 作者:Bin -- 发布时间:2014/6/30 17:39:00 -- Dim flt As String For Each c As Col In Tables("工作日志表").Cols For Each ctl As WinForm.Control In e.Form.Controls If c.Name = ctl.Name Then If e.Form.Controls(ctl.Name).Text > "" Then If c.IsDate Then flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#" ElseIf c.IsString Then flt + = " And " & c.Name & " Like \'%" & e.Form.Controls(ctl.Name).Text & "%\'" End If End If End If Next Next If flt > "" Then flt = flt.SubString(5) Tables("工作日志表").Filter = flt End If [此贴子已经被作者于2014-6-30 17:38:54编辑过]
|
-- 作者:wumingrong1 -- 发布时间:2014/6/30 17:48:00 -- 可能没明白我的意思;我是希望在查询出结果为 空 的情况下,不给他显示 空 的内容;因为如果这样的话、我就无法使用右键的“撤销查询”键来撤销查询 |
-- 作者:有点甜 -- 发布时间:2014/6/30 17:51:00 -- 以下是引用wumingrong1在2014-6-30 17:48:00的发言:
可能没明白我的意思;我是希望在查询出结果为 空 的情况下,不给他显示 空 的内容;因为如果这样的话、我就无法使用右键的“撤销查询”键来撤销查询
vars("查询") = True
参考之前的做法。 |
-- 作者:Bin -- 发布时间:2014/6/30 17:52:00 -- 不太明白你的意思? 如果筛选的结果一行也没有? 就不执行筛选?
|