以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于筛选的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113821)
--  作者：purplebluesky
--  发布时间：2018/1/23 17:36:00
--  关于筛选的问题
  把窗口表做了分页加载后，筛选功能重新调整了下，可以实现了，但是撤销筛选的功能却出问题了，不知道要怎么改。麻烦帮忙看看，现在撤销筛选部分被我改的有点乱七八糟了都。

Afterloading:


DataTables("产品库").LoadFilter = ""  \'一定要清除加载条件

DataTables("产品库").LoadTop = 20  \'每页加载10行

Dim btn As WinForm.Button =  e.Form.Controls("Button9")

btn.PerformClick()

 

Dim CBCATEGORY As WinForm.ComboBox = e.Form.Controls("CBCATEGORY")

CBCATEGORY.ComboList=DataTables("产品库").SQLGetComboListString("产品类别")


开始筛选：


Dim Filter As String

With e.Form.Controls("CBCATEGORY")

    If .Value IsNot Nothing Then

        Filter = "产品类别 = \'" & .Value & "\'"

    End If

End With

 

 

If Filter > "" Then

    Tables("产品库").DataTable.loadFilter = Filter

    Tables("产品库").DataTable.load

 

End If


撤销筛选：


Tables("产品库管理_table1").DataTable.LoadFilter = "[_Identify] Is Null"

Tables("产品库管理_table1").DataTable.loadtop = 20
--  作者：有点甜
--  发布时间：2018/1/23 17:40:00
--  

Tables("产品库管理_table1").DataTable.LoadPage = 0

Tables("产品库管理_table1").DataTable.LoadFilter = ""

Tables("产品库管理_table1").DataTable.loadtop = 20

Tables("产品库管理_table1").DataTable.load
--  作者：purplebluesky
--  发布时间：2018/1/24 10:29:00
--  
搞定，谢谢有点甜老师！