如下代码执行时,FOXTABLE关闭了,
内部函数名为:addChildsfromDT
Dim ND As WinForm.TreeNode
nd=args(0)
Dim Pkey As Integer
Pkey= Cint(ND.Name)
Dim Dt As DataTable
dt=args(1)
Dim drs As List(of DataRow)
If ND IsNot Nothing Then
drs =DT.Select("PareKey = " & Pkey,"SortID")
For Each dr As DataRow In drs
nd.Nodes.Add(cstr(dr("_identify")),cstr(dr("nodetext")))
Functions.Execute("addChildsfromDT",nd,dt)
Next
End If