主题：[求助]加载树报错

Dim dr As DataRow = e.Node.DataRow
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim day As Integer  = dr("日")

改成-----------------------------------------

Dim dr As DataRow = e.Node.FullName.split("\")
Dim Year As Integer = ary(0)
Dim Month As Integer = ary(1)
Dim day As Integer  = ary(2)