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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 创建加载树

共有2077人关注过本帖树形打印复制链接主题：创建加载树

ehbx_ysj

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

加好友

发短信

等级：幼狐帖子：129 积分：1150 威望：0 精华：0 注册：2020/5/9 9:40:00

创建加载树

Post By：2020/11/25 8:52:00 [只看该作者]

有一个订单表，里面有个日期字段OrderDate，数据加载好以后需要创建加载树

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

trv.BuildTree(DataTables("订单"),"Year(OrderDate)|Month(OrderDate)")

trv.Nodes.Insert("加载所有数据",0)

报错

应该增么写创建加载数语句？

有点蓝

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

加好友

发短信

等级：超级版主帖子：106857 积分：543492 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/25 9:23:00 [只看该作者]

没有这种用法

方法1、添加一个年月列，把日期值转换位年月值，然后通过这个列生成

2、使用sql返回表格数据，再生成，如：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT cast(Year(日期) as nvarchr(4)) + cast(Month(日期) as nvarchr(2)) As 年月 From {订单}"

dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年月")

ehbx_ysj

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

加好友

发短信

等级：幼狐帖子：129 积分：1150 威望：0 精华：0 注册：2020/5/9 9:40:00

Post By：2020/11/25 9:53:00 [只看该作者]

我如何在加载树时让最近的日期在上面

有点蓝

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

加好友

发短信

等级：超级版主帖子：106857 积分：543492 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/25 9:56:00 [只看该作者]

语法：

BuildTree(DataTableName, Columns, Filter, Sort)

或

BuildTree(DataTable, Columns, Filter, Sort)

DataTableName：	数据表名
DataTable：	数据表
Columns:	指定数据列，不同的列之间用符号“\|”隔开，例如：产品\|客户\|雇员”
Filter:	可选参数，指定过滤条件，请参考表达式的运算符和函数和条件表达式
Sort:	可选参数，设置排序，默认根据ColumnName参数指定的列排序

下一主题 >> << 上一主题

主题：创建加载树