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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树的问题

共有1514人关注过本帖树形打印复制链接主题：目录树的问题

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

目录树的问题 发帖心情

Post By：2016/8/10 17:08:00 [只看该作者]

请教老师，这段代码怎样在目录树显示日期后面加上 “年” “月”

2016年

8月

Dim cmd0 As New SQLCommand

Dim dt0 As DataTable

cmd0.C

cmd0.C ommandText = "SELECT DISTINCT Year(获取日期) As 年, Month(获取日期) As 月, 项目编号 F rom {项目信息主表}"

dt0 = cmd0.ExecuteReader()

Dim trv0 As WinF orm.TreeView = e.F orm.Controls("TreeView2")

trv0.BuildTree(dt0, "年|月|项目编号")

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 17:37:00 [只看该作者]

你用的是什么数据库？

cmd0.CommandText = "SELECT DISTINCT Year(获取日期) + '年' As 年, Month(获取日期) + '月' As 月, 项目编号 F rom {项目信息主表}"

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2016/8/10 17:53:00 [只看该作者]

数据源USER 写掉了， ACCESS

[此贴子已经被作者于2016/8/10 17:55:17编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 17:55:00 [只看该作者]

cmd0.CommandText = "SELECT DISTINCT Convert(varchar,Year(获取日期)) + '年' As 年, Convert(varchar, Month(获取日期)) + '月' As 月, 项目编号 F rom {项目信息主表}"

cmd0.CommandText = "SELECT DISTINCT Cstr(Year(获取日期)) + '年' As 年, Cstr(Month(获取日期)) + '月' As 月, 项目编号 F rom {项目信息主表}"

[此贴子已经被作者于2016/8/10 18:04:25编辑过]

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2016/8/10 18:04:00 [只看该作者]

老师，报错，您指导后两个代码函数不匹配最前面的代码，报错函数未定义

[此贴子已经被作者于2016/8/10 18:05:51编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 18:04:00 [只看该作者]

看4楼。

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2016/8/10 18:10:00 [只看该作者]

cmd0.CommandText = "SELECT DISTINCT Cstr(Year(获取日期)) + '年' As 年, Cstr(Month(获取日期)) + '月' As 月, 项目编号 F rom {项目信息主表}"

年月已经出来了，但是点击节点报错报错：从字符串“2016年”到类型“Integer”的转换无效。

4楼的另外一段代码报错，函数未定义

NodeMouseDoubleClick：

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

Dim Filter As String

Dim Year As Integer = dr("年")

Dim Month As Integer = dr("月")

Dim Product As String = dr("项目编号")

Select Case e.Node.Level

Case 0

Filter ="Year(获取日期) = " & Year

Case 1

Filter ="Year(获取日期) = " & Year & " And Month(获取日期) = " & Month

Case 2

Filter ="Year(获取日期) = " & Year & " And Month(获取日期) = " & Month & " And 项目编号 = '" & Product & "'"

End Select

DataTables("查询_Table1").LoadFilter = Filter

DataTables("查询_Table1").Load()

[此贴子已经被作者于2016/8/10 18:13:24编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/10 19:48:00 [只看该作者]

Dim Year As Integer = dr("年").Replace("年", "")

Dim Month As Integer = dr("月").Replace("月", "")

Dim Product As String = dr("项目编号")

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

主题：目录树的问题