自定义加载树，错误提示！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义加载树，错误提示！！

共有2590人关注过本帖树形打印复制链接主题：自定义加载树，错误提示！！

身份不明

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

自定义加载树，错误提示！！ 发帖心情

Post By：2014/8/14 11:36:00 [只看该作者]

'生成目录树
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 后期完成, Year(交货日期) As 年, Month(交货日期) 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 = 100 '每页100行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With