如何让生成的目录树,展示其中的几个科目?
比如,全局变量=1,不展示 “成本”相关的目录树(只保留"全部","资产","负债","共同","权益","损益")。
{"全部","资产","负债","共同","权益","成本","损益"}
生成目录树没有问题,生成目录树代码为:
Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.ConnectionName
cmd.CommandText = "Selec t [ccode],[ccode_name],[iyear],[bend],[bbank],[bcash] F RO M {code} where bbank=0 And bcash=0 And iyear=" & val(Forms(e.Form.dropdownbox.form.name).Controls("DateTimePicker1").value)
dt = cmd.ExecuteReader(True) '记得将参数设置为True
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim rts() As String = {"全部","资产","负债","共同","权益","成本","损益"}
Dim nd As WinForm.TreeNode
tr.StopRedraw()
tr.Nodes.Clear
For Each rt As String In rts
tr.Nodes.Add(rt)
Next
For Each dr As DataRow In dt.Select("","ccode")
If dr.IsNull("ccode") = False AndAlso dr("ccode").Length = 4 Then
Dim i As Integer = CInt(dr("ccode").Substring(0,1))
nd = tr.Nodes(i).Nodes.Add(dr("ccode"),dr("ccode") & " " & dr("ccode_name"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
tr.ResumeRedraw()
[此贴子已经被作者于2020/11/18 8:48:19编辑过]