主题：目录树加载问题请教

点击分页加载下一页

systemready = false

With DataTables("客户信息")
    If .LoadPage < .TotalPages - 1
        .LoadPage = .LoadPage  + 1
        .Load()
        e.Form.Controls("TextBox1").Value = (.LoadPage + 1) & "/" & .TotalPages
    End If
End With

systemready = true