-- 作者：身份不明
-- 发布时间：2014/8/13 10:14:00
-- 关于自定义加载树的问题？
我在一个窗口里用了一个页面集合的控件，插入了库存，入库，出库3个表，可不可以在一个窗口的Afterload时间里，做3个自定义加载树。
我的代码如下：
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 排单完成,Year(排单日期) As 年, Month(排单日期) As 月, Day(排单日期) As 日 ,选择人员 From {后期机器排单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"排单完成|年|月|日|选择人员")
trv.Nodes.Insert("加载所有数据",0)
\'加载第一页数据
With DataTables("后期机器排单")
.LoadFilter = "" \'清除加载条件
.LoadPage = 0 \'加载第一页
.LoadOver="_Identify"
.LoadTop = 8
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "SELECT DISTINCT 排单完成,Year(排单日期) As 年, Month(排单日期) As 月, Day(排单日期) As 日 ,选择人员 From {后期手工排单}"
dt1 = cmd.ExecuteReader()
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv2.BuildTree(dt,"排单完成|年|月|日|选择人员")
trv2.Nodes.Insert("加载所有数据",0)
\'加载第一页数据
With DataTables("后期手工排单")
.LoadFilter = "" \'清除加载条件
.LoadPage = 0 \'加载第一页
.LoadOver="_Identify"
.LoadTop = 8
.Load()
e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With
关闭窗口以后没有错误提示，而且功能也实现了？这样就没有问题了吧，老师。
|