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

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

也许你设置了分页加载，每页10行而已。

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

没有道理的，搞不定就做个例子上来。

如果是正版用户，可以联系客服（QQ：800014337），请他们远程帮你看一下。

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

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

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

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

 

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

如果这样，100%确定你的代码有问题。

 

加载树-客户_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()

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

奇怪，没有道理的啊，找客服远程帮你看一下吧，可能很快就知道原因了。

或者自己用内部表做个例子，发上来测试一下。

要不你这样试试吧：

 

'前面的代码

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

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

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