请教代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面这段代码是对Datatable的，我想把这里的Datatable换成窗口1_table1，请问代码该怎么改呢？谢谢！

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("支出项目明细")

tr.StopRedraw()

tr.Nodes.Clear

tr.Nodes.Add("全部")

For Each dr As DataRow In dt.Select("","科目代码")

If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then

nd = tr.Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))

Functions.Execute("AddChildren",nd,dt)

End If

tr.ResumeRedraw()

主题：请教代码