主题：下面的代码无法让菜单栏按钮反应

1、你的目录树的条件是固定的，何必使用代码动态设置，代码应该放在MainTableChanged事件中。

If MainTable.Name = "DNP出货规划" Then
    If e.Col.Name = "DNP生产批次" Then
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("DNP入仓规划")
        tb.TreeCols = "DK编码|DNP生产批次|DNP名称"

        tb.SourceCols = "DK编码|DNP生产批次"
        tb.ReceiveCols = "DK编码|DNP生产批次"
        tb.TreeFilter = "同批剩余可支配总_正品M<>0"
        e.Col.DropTree = tb.Build()
    End If
End If

2、你可以看看：

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

这样设计，慢是必然的，电脑和程序的性能都是有限的，设计的时候也要考虑“选优”和“平衡”