以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]为什么代码实现的功能失效了呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105365)
--  作者：bbgg945
--  发布时间：2017/8/17 18:11:00
--  [求助]为什么代码实现的功能失效了呢？
在窗口全局事件KeyDown中，输入代码：
If e.keycode = 13 Then
    e.Cancel = True
    e.Form.Controls("查询").PerformClick
End If
实现输入查询条件后，按回车键即可进行查询操作
以前功能使用没有问题
现在所有窗口的回车键查询功能都失效了
在即时库存表中，窗口5的查询功能完全无效了
请老师帮我看看吧

[此贴子已经被作者于2017/8/18 0:37:11编辑过]
--  作者：有点甜
--  发布时间：2017/8/17 18:57:00
--  
Tables("即时库存").Filter = ""
Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim Filter As String
If lb.text > ""  Then
    Filter = "类别 = \'" & lb.text &"\'"
End If
With e.Form.Controls("物料名称")
    If .text > "" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "物料名称 like \'*" & .Value & "*\'"
    End If
End With
Dim dbcs As WinForm.TextBox = e.Form.Controls("调拨次数")
If dbcs.text > "" Then
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "调拨次数 >= \'" & val(dbcs.text) &"\'"
End If

If Filter > "" Then
    Tables("即时库存").Filter = Filter
End If
--  作者：bbgg945
--  发布时间：2017/8/18 0:38:00
--  
谢谢甜老师！为什么以前可以正常使用呢？
[此贴子已经被作者于2017/8/18 0:43:22编辑过]
--  作者：有点甜
--  发布时间：2017/8/18 8:34:00
--  
以下是引用bbgg945在2017/8/18 0:38:00的发言：
谢谢甜老师！为什么以前可以正常使用呢？
[此贴子已经被作者于2017/8/18 0:43:22编辑过]

 

判断字符串是否为空，尽量用 > "" 或者 <> nothing