以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树格式表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71140)
--  作者：blsu33
--  发布时间：2015/7/6 10:34:00
--  [求助]目录树格式表达式
老师 ，
  这样好像不对，可以这样做吗
e.Form.Controls("TreeView2").BuildTree("Jobcard明细表", "组别|year("年度") & "年" & Month("年度") &"月"|co")
--  作者：大红袍
--  发布时间：2015/7/6 10:35:00
--  

 不能这样做，要先用sql语句查出表

 

 如

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select Distinct Year(日期) As 年, Month(日期) As 月, 产品 F rom {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|产品")
trv.Nodes.Insert("显示所有行",0)
--  作者：blsu33
--  发布时间：2015/7/6 10:55:00
--  
老师,
   access 数据库
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year([年度]) As 年, Month([年度]) As 月,Fr om {Jobcard明细表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
trv.BuildTree(dt, "年|月")


显示 SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。
--  作者：大红袍
--  发布时间：2015/7/6 10:58:00
--  

http://www.foxtable.com/help/topics/2344.htm