主题：用SQL语句设计加载树后的问题

根据帮助文档里的 用SQL语句设计加载树 ，为什么每次只能加载数据的前10条？

我没设置分页加载，帮助的这一篇里也没有介绍分页加载。

1.我用了系统自己带的加载树可以全部加载数据。

2.程序打开时用我自己设计的加载树只能加载前10条

3.当用系统自带的加载树加载以后，再用我设计的加载树就可以全部加载

4.数据库是连接的外部sql表，连接的时候设置的是默认加载行。

 

总结：我感觉根据帮助文档里做出来的更像是筛选树，而不是加载树。

 

加载树-客户_AfterLoad

 

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

If user.group="管理员" Then

cmd.CommandText = "SELECT DISTINCT 地区_省, 地区_县市, 店面名称 From {店面信息}"

End If

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt, "地区_省|地区_县市|店面名称")

trv.Nodes.Insert("加载所有客户",0)

 

-------------------------------------------------------------------------------------------

 

加载树-客户_TreeView1_NodeMouseClick

 

Dim Value()As String

Dim Filter As String

Dim d1 As Date

Dim d2 As Date

Value = e.Node.FullPath.Split("\")

 

If e.Node.Text = "加载所有客户" Then

Filter = ""

   

Else

Select Case e.Node.Level

    Case 0

        Filter = "所属店面id in(select 店面ID from 店面信息 where 地区_省 = '" & Value(0) & "')"

 'MessageBox.Show(Value(0))

    Case 1       

        Filter = "所属店面id In(Select 店面ID from 店面信息 where 地区_省 = '" & Value(0) & "' And 地区_县市='" & Value(1) & "')"

 'MessageBox.Show(Value(1))

    Case 2

        Filter = "所属店面id =(Select 店面ID from 店面信息 where 店面名称='" & Value(2) & "')"

        'MessageBox.Show(Value(2))

 

    End Select

End If

DataTables("店面客户信息").LoadFilter = Filter

DataTables("店面客户信息").Load()

代码全是按照格式来的，哪有问题？