主题：关于筛选的问题

  把窗口表做了分页加载后，筛选功能重新调整了下，可以实现了，但是撤销筛选的功能却出问题了，不知道要怎么改。麻烦帮忙看看，现在撤销筛选部分被我改的有点乱七八糟了都。

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

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

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

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

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

搞定，谢谢有点甜老师！