nodemousedoubleclick代码： 代码应该没有问题吧
messagebox.show(e.Node.DataRow("ccode_name"))
双击节点报错 Object reference not set to an instance of an object.
生成目录树没有问题，生成目录树代码为：
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/6 10:46:47编辑过]
加好友 
发短信
Post By：2020/11/5 10:58:00 [只看该作者]
