主题：删除子表行非常慢处是什么原因？

删除prepareEdit事件代码

If e.IsFocusCell AndAlso e.Col.name = "工料一类" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("工料单价") '指定目录树表
    tb.TreeFilter="项目id='" & e.Row("项目id") & "'"
    tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列
    tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据来源列
    tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据接收列
    e.Col.DropTree = tb.Build()
End If

代码写到click或者其它事件去，不要写在这个事件。

写到任意相关的事件那里去，就是不要写到prepareEdit事件。

比如 click、currentChanged、诸如此类的，自行寻找适合自己的事件，代码

    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("工料单价") '指定目录树表
    tb.TreeFilter="项目id='" & Tables("表名").Current("项目id") & "'"
    tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列
    tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据来源列
    tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据接收列
    Tables("表名").cols("列名").DropTree = tb.Build()

1、表名是【清单.清单明细】啊，你都没看懂代码。

2、你把代码写到click事件了没有？

3、click事件，加入msgbox，点击表格，能否弹出？如果弹出之后，下拉目录树肯定没问题。

1、你本来没修改的代码就是不能正常引用目录树的吧？

2、你要引用工料单价的逻辑有问题。限制的条件是什么？两个表有什么关联？目录树应该显示成什么样才算正确？

prepareEdit事件，代码改成

static pid As Double = -1
If e.Col.name = "工料一类" Then
    If pid <> e.Row("项目id") Then
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("工料单价") '指定目录树表
        tb.TreeFilter="项目id='" & e.Row("项目id") & "'"
        tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列
        tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据来源列
        tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据接收列
        e.Col.DropTree = tb.Build()
        pid = e.Row("项目id")
    End If
End If