分码加载页数没有自动更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

分码加载时文本框控件内的页数没有自动更新。帮助示例中是外部表，我的是内部表，所以有点不知道怎么套用代码。请老师指点一下

窗口AfterLoad代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("S征地记录", "项目名称|县|乡|村|屯|组")
trv.Nodes.Insert("显示所有行",0)

加载树NodeMouseDoubleClick代码：
Dim Filter As String = "1=1"

Dim dr = e.node.FullPath.split("\") '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[项目名称] = '" & dr(0) & "'"
Case 1
Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "'"
Case 2
Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "' And [乡] = '" & dr(2) & "'"
Case 3
Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "' And [乡] = '" & dr(2) & "' And [村] = '" & dr(3) & "'"
Case 4
Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "' And [乡] = '" & dr(2) & "' And [村] = '" & dr(3) & "' And [屯] = '" & dr(4) & "'"
Case 5
Filter = "[项目名称] = '" & dr(0) & "' And [县] = '" & dr(1) & "' And [乡] = '" & dr(2) & "' And [村] = '" & dr(3) & "' And [屯] = '" & dr(4) & "'And [组] = '" & dr(5) & "'"
End Select
End If
DataTables("S征地记录").save
If User.Name = "开发者" Or User.Name = "管理员" Then
DataTables("S征地记录").LoadFilter = filter
DataTables("S征地记录").LoadOrder="协议书编号 Desc"
DataTables("S征地记录").LoadTop= 5
DataTables("S征地记录").Load
Tables("S征地记录").sort="协议书编号"
Else
DataTables("S征地记录").loadfilter = "(乡 = '" & User.Name & "' or 县 = '" & User.Name & "' or 项目名称 = '" & User.Name & "') and " & Filter
DataTables("S征地记录").LoadOrder="协议书编号 Desc"
DataTables("S征地记录").LoadTop= 5
DataTables("S征地记录").Load
Tables("S征地记录").sort="协议书编号"
End If

'Tables("S征地记录").filter = filter

第一页按钮代码：
With DataTables("S征地记录")
.LoadPage = 0 '加载第一页
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

上一页按钮代码：
With DataTables("S征地记录")
If .LoadPage > 0 Then
.LoadPage = .LoadPage - 1
.Load()
e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
End If
End With

下一页按钮代码：
With DataTables("S征地记录")
If .LoadPage < .TotalPages - 1
.LoadPage = .LoadPage + 1
.Load()
e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
End If
End With

最后一页按钮代码：
With DataTables("S征地记录")
If .LoadPage < .TotalPages - 1
.LoadPage = .TotalPages - 1
.Load()
e.Form.Controls("TextBox1").Value = .TotalPages & "/" & .TotalPages
End If
End With

主题：分码加载页数没有自动更新