在窗口的AfterLoad事件中写以下代码：

Dim g As New GroupTableBuilder("统计表1", DataTables("hfclrk"))
g.Groups.AddDef("大类")
g.Groups.AddDef("明细类")
g.Groups.AddDef("材料名称")
g.Totals.AddDef("成本数量")

g.Build()

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("统计表1", "大类|明细类|材料名称","成本数量")

打开窗口后出现这样的提示：

此主题相关图片如下：qq截图未命名.png

去掉以上排序，即tv.BuildTree("统计表1", "大类|明细类|材料名称")就不会出错

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

参见刚做好的例子

呵呵，我还以为有不管, 特地等到周末处理，原来是你代码错误：

tv.BuildTree("统计表1", "大类|明细类|材料名称","成本数量")

应该：

tv.BuildTree("统计表1", "大类|明细类|材料名称")

按照帮助的介绍，我的代码并没有错，引用帮助中的文件：

根据多列内容生成目录树

目录树有一个BuildTree方法，可以根据指定的数据表内容生成目录树节点。

语法：

BuildTree(DataTableName, Columns, Filter, Sort)

或

BuildTree(DataTable, Columns, Filter, Sort)

那就是说为了排序，我可以加上一个排序的列名呀。

排序参数是第四个，你放在第三的位置，等于就是Filter参数啊，应该这样。

tv.BuildTree("统计表1", "大类|明细类|材料名称","", "大类|明细类|成本数量")

明白了。

谢谢！