以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态加载和查询窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71061)
--  作者：seal51
--  发布时间：2015/7/4 0:38:00
--  动态加载和查询窗口
动态加载时，帮助里的“设计查询窗口”的代码如何更改呢？
--  作者：sloyy
--  发布时间：2015/7/4 1:32:00
--  
你看了帮助里的"动态加载总结"这部分内容没有?
如果看了的话,你可以有11种办法加载数据,对应设计查询窗口也有这么多种办法修改
--  作者：狐狸爸爸
--  发布时间：2015/7/4 9:11:00
--  
前面的代码都一样，最后面三行：

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

改为:

If Filter > "" Then
    DataTables("订单").LoadFilter = Filter
    DataTables("订单").Load()
End If


是不是很简单，但是为什么不会呢？ 有没有想过原因？
--  作者：seal51
--  发布时间：2015/7/4 17:48:00
--  

Dim Filter As String

With e.Form.Controls("cpid")
    If .Value IsNot Nothing Then
        Filter = "产品ID like \'*" & .Value & "*\'"
    End If
End With

With e.Form.Controls("cpmc")
    If .Value IsNot Nothing Then
        Filter = "产品名称 like \'*" & .Value & "*\'"
    End If
End With

If Filter > "" Then
    DataTables("产品列表").LoadFilter = Filter
    DataTables("产品列表").Load()
End If

 

代码更改如上， 怎么查不出来数据来呢？
--  作者：seal51
--  发布时间：2015/7/4 17:52:00
--  
全部的代码Tables("产品列表").ApplyFilter = False，如何更改呢？
--  作者：大红袍
--  发布时间：2015/7/5 9:46:00
--  

Dim Filter As String

With e.Form.Controls("cpid")
    If .Value IsNot Nothing Then
        Filter = "产品ID like \'%" & .Value & "%\'"
    End If
End With

With e.Form.Controls("cpmc")
    If .Value IsNot Nothing Then
        Filter = "产品名称 like \'%" & .Value & "%\'"
    End If
End With

If Filter > "" Then
    DataTables("产品列表").LoadFilter = Filter
    DataTables("产品列表").Load()
End If
--  作者：大红袍
--  发布时间：2015/7/5 9:47:00
--  
以下是引用seal51在2015/7/4 17:52:00的发言：
全部的代码Tables("产品列表").ApplyFilter = False，如何更改呢？

 

DataTables("产品列表").LoadFilter = ""
DataTables("产品列表").Load()