以文本方式查看主题

-  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
--  
不太明白你的意思?  如果筛选的结果一行也没有? 就不执行筛选?