1、耗时问题的解决方法:
http://www.foxtable.com/help/topics/2439.htm
2、Table才是筛选后的行,DataTable始终包括所有行:
For Each dr As Row In Tables("xxx").rows If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 2 Then nd = tr.Nodes.Add(dr("科目代码"), dr("科目名称")) Functions.Execute("AddChildren",nd,dt) End IfNext
好好看看:
http://www.foxtable.com/help/topics/1467.htm