查询按钮:Dim Filter As String
With e.Form.Controls("物料编码")
If .Value IsNot Nothing Then
Filter = "物料编码 like '*" & .Value & "*'"
End If
End With
With e.Form.Controls("供应商")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "供应商 = '" & .Value & "'"
End If
End With
Tables("物料表").Filter = filter
物料表是采用帮助里面的分布加载树设计的,这样每次查询都只是当前页的内容,代码如何写才能实现在全部页中查找需要的内容?请老师指导!
AFTERLOAD代码:
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 大类,中类,供应商 From {物料表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"大类|中类|供应商")
trv.Nodes.Insert("加载所有数据",0)
'加载第一页数据
With DataTables("物料表")
.LoadFilter = "" '清除加载条件
.LoadPage = 0 '加载第一页
.LoadTop = 25 '每页25行
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With