Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Se lect Distinct Year(凭证明细.日期) As 年, Month(凭证明细.日期) As 月,凭证明细.合同名称,凭证明细.供应商,凭证明细.客户," & _
"凭证明细.项目名称,凭证明细.会计科目_一级科目,凭证明细.会计科目_二级科目,会计科目.科目代码 As 科目代码,凭证明细.会计科目_三级科目 From {凭证明细} , {会计科目} where {凭证明细}.科目代码 = {会计科目}.科目代码"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView2")
tv.StopRedraw
tv.Nodes.Clear
tv.BuildTree(dt,"会计科目_一级科目|会计科目_二级科目|会计科目_三级科目","","")
tv.Nodes.Insert("全部",0)
tv.Nodes(1).Expand()
tv.ResumeRedraw()
End If
现在我是这样写的。目录树生成；
问题1： 怎么把这个目录树，做一个分类：{"全部","资产","负债","权益","成本","损益"}，上第一级目录树，做这些分类；
问题2：我这个凭证明细中不同的会计科目，它们有不同的核算项目：如：{供应商，员工，合同，项目} 怎么才能加到第二级或第三级节点 中去？（同时，我筛选时，希望能获取：节点的datarow的方式））
此主题相关图片如下：11.png
加好友 
发短信
Post By：2017/6/8 13:10:00 [只看该作者]
