以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用日期列做目录树 怎么去掉时间部分?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20416)

--  作者:chenpan
--  发布时间:2012/6/8 9:17:00
--  用日期列做目录树 怎么去掉时间部分?

Dim dt5 As DataTable

Dim cmd As NEW SQLCommand

cmd.C

cmd.CommandText = "select DISTINCT  {生产统计表}.生产时间, from {生产统计表} "


dt5 = cmd.ExecuteReader()



Tables("月度生产汇总_Table1").DataSource =dt5

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

\'tr.BuildT\'ee("dt5",Format(生产时间,"yyyy-MM") \'2008-12-31


tr.CreateTree( dt5,"生产时间","-")


用日期列做目录树 怎么去掉时间部分?

我只要时间的年月部分



[此贴子已经被作者于2012-6-8 9:19:37编辑过]

--  作者:chenpan
--  发布时间:2012/6/8 9:53:00
--  
有人知道么?


--  作者:blackzhu
--  发布时间:2012/6/8 10:02:00
--  
遍历替换.
--  作者:chenpan
--  发布时间:2012/6/8 10:03:00
--  
给点代码,有点搞不明白
--  作者:chenpan
--  发布时间:2012/6/8 11:58:00
--  
狐爸在吗,给点明示?
--  作者:don
--  发布时间:2012/6/8 12:19:00
--  
Dim dt5 As DataTable
Dim cmd As NEW SQLCommand
cmd.C
cmd.CommandText = "select DISTINCT  Format({生产统计表}.生产时间 ,\'yyyy-MM\') As 年月  from {生产统计表}"
dt5 = cmd.ExecuteReader()
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree(dt5,"年月")

--  作者:chenpan
--  发布时间:2012/6/8 12:49:00
--  
相当经典,我想破了脑袋啊!!非常感谢!!!