主题：分页数设置加载条件问题请教？

用户部门有三级  省 、市、县区 。
用户角色分为管理员、部门经理、部门职员
县的部门经理可以看到本县所有人员的信息，
市的部门经理可以看到本市所辖所有县的信息。
省的部门经理可以看到本省所辖所有市县的信息。

部门职员只能看到本人的信息。

管理员可以看到所有的信息。

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "oa"
cmd.CommandText = "SELECT DISTINCT username,usergroup,sheng,shi,xian From {user}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"sheng|shi|xian|username")
trv.Nodes.Insert("加载所有数据",0)

'加载第一页数据
With DataTables("order")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop = 5 '每页5行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With