请问各位老师：
窗口的SQLQuery表能不能加进去加载树？
下面是帮助的文档，不过是针对内部表的。那外部查询表呢？能否也实现？
2、然后新建一个窗口，窗口中插入一个目录树(TreeView),窗口的AfterLod事件代码设为：
Dim cmd As New SQLCommand
Dim dt As
DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From
{订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"产品|客户")
trv.Nodes.Insert("加载所有数据",0)
3、最后将目录树的NodeMouseDoubleClick事件设为：
Dim Filter As
String
If e.Node.Text = "加载所有数据"
Then
Filter =
""
Else
Dim Value() As
String
Value =
e.Node.FullPath.Split("\")
Select
Case e.Node.Level
Case
0
Filter ="[产品] = '" & Value(0) & "'"
Case
1
Filter
="[产品] = '" & Value(0)
& "' And [客户] = '" & Value(1) & "'"
End
Select
End
If
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
这样我们只需双击某个节点，既可动态加载对应的订单
加好友 
发短信
Post By：2014/1/28 9:05:00 [只看该作者]
