以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请教代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90473)

--  作者：落叶孤影 --  发布时间：2016/9/13 17:48:00 --  请教代码 下面这段代码是对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 Next tr.ResumeRedraw()

--  作者：有点蓝 --  发布时间：2016/9/13 18:00:00 --   Dim dt As DataTable = Tables("窗口1_table1").Datatable

--  作者：落叶孤影 --  发布时间：2016/9/13 18:26:00 --   谢谢！