以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询表的筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68731)
--  作者：seal51
--  发布时间：2015/5/23 15:45:00
--  查询表的筛选

帮助中设计查询窗口中如果表为查询表， 出错

 

未找到类型“Label”的公共成员“Value”。
--  作者：Bin
--  发布时间：2015/5/23 15:46:00
--  
Label  只有Text 属性哦
--  作者：seal51
--  发布时间：2015/5/23 16:06:00
--  

Dim Filter As String

With e.Form.Controls("khbh")
    If .Text IsNot Nothing Then
        Filter = "客户编号 like \'*" & .Text & "*\'"
    End If
End With

If Filter > "" Then
    Tables("订单查询").Filter = Filter
End If

 

 

这样写不对吧， 筛选不出来，

--  作者：Bin
--  发布时间：2015/5/23 16:09:00
--  
你khbh 是Label控件? 为什么用Label控件来筛选呢? 不合理.而且你这个IF判断不适用于Text 

Dim Filter As String

With e.Form.Controls("khbh")
    If .Text <> "" Then
        Filter = "客户编号 like \'*" & .Text & "*\'"
    End If
End With

If Filter > "" Then
    Tables("订单查询").Filter = Filter
End If
--  作者：seal51
--  发布时间：2015/5/23 16:17:00
--  

有点晕， 谢谢BIN老师