Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("物料清单")

nd = tr.Nodes.Add("100","按零件编号分类")                    

For Each dr As DataRow In dt.Datarows                           

    nd.nodes.add("101",dr("零件编号"))                         

Next

子节点出来很多相同的节点名称，这怎么弄？我是想弄个按子节点筛选的。求教，多谢！

基本上，我不认为编程是技术活，只要了解了基本的原理和方法，其他都是小菜。

参考：

http://www.foxtable.com/help/topics/2747.htm

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("物料清单")

nd = tr.Nodes.Add("100","按零件编号分类")                    

For Each v As String In dt.GetValues("零件编号")

    nd.nodes.add(v)                         

Next

最好的例子，其实都在帮助文件。

另外，GetValues、Find、Select这是最基本最常用的方法，不了解这些，看那些例子有有什么用？ 了解了这些，你自己就能解决90%的问题了，因为万变不离其宗。