| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 目录树的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88864) |
| -- 作者：douglas738888 -- 发布时间：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, "年|月|项目编号") |
| -- 作者：大红袍 -- 发布时间：2016/8/10 17:37:00 -- 你用的是什么数据库？
cmd0.CommandText = "SELECT DISTINCT Year(获取日期) + \'年\' As 年, Month(获取日期) + \'月\' As 月, 项目编号 F rom {项目信息主表}"
|
| -- 作者：douglas738888 -- 发布时间：2016/8/10 17:53:00 -- 数据源USER 写掉了， ACCESS [此贴子已经被作者于2016/8/10 17:55:17编辑过]
|
| -- 作者：大红袍 -- 发布时间：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 -- 发布时间：2016/8/10 18:04:00 -- 老师，报错，您指导后两个代码 函数不匹配 最前面的代码，报错 函数未定义 [此贴子已经被作者于2016/8/10 18:05:51编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/8/10 18:04:00 -- 看4楼。 |
| -- 作者：douglas738888 -- 发布时间：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编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/8/10 19:48:00 -- Dim Year As Integer = dr("年").Replace("年", "")
Dim Month As Integer = dr("月").Replace("月", "")
Dim Product As String = dr("项目编号")
|