主题：目录树双击筛选

以下是产品表目录树双击节点筛选代码，双击后约10多秒才筛选出来，而产品表只有2000条记录，如果是2万条记录，岂不更长时间，而双击筛选是经常操作。

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("产品").Filter ="[产品分类] = '" & Value(0) & "'"
    Case 1
        Tables("产品").Filter ="[产品分类] = '" & Value(0) & "' And [型号] = '" & Value(1) & "'"
End Select

我准确计算了一下，目录树筛选要5-6秒。先说明一下，我现在是2个表：[产品]表和[用料]表，[用料]表是[产品]表的子表，目录树筛选的是[产品]表，当子表没有记录时，筛选很快，现在子表有8000条记录，所以筛选慢了，是这样吗？2表是关联表。

 

我的案例是开发版做的，需要的话我发上来。

我想代码应该不会有问题，都是按照帮助做的，而且关联数据少的时候目录树筛选也很快，问题可能出在关联，[产品]表和[用料]表的关联我是用了三个字段[产品分类]、[型号]、[规格]，会不会是关联字段太多影响了筛选速度。

 

之前，我也是用主表的_Identify与子表的ID进行关联，但操作人员不愿意在子表一个一个的录入，而是希望通过复制EXCEL表的数据，这样就修改成现在的关联，实在没办法。

1、我等下去验证；

2、我需要的不是[产品分类]、[型号]、[规格]的自动录入，而是大批量从EXCEL表复制，由于ID关联，所以不行。

我还是传上来，请狐爸帮我看一下

窗口表：BOM窗口

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

点击浏览该文件:产品用料.rar

也就是说与关联表的计算表达式有关,而与关联字段没有多大的关系，计算表达式列是需要的，有什么解决方法吗？现在我不敢往下做了。

 

关于关联字段太多的问题，我也觉得不妥，一开始也不是这样设计的，是使用者一再要求才改成这样，使用者一再要求操作简单，即：只要输入产品数量，就要立马得出所有材料的汇总，而且要同时显示。因水平有限，实在想不出更好的方案，有劳指教。不过，该软件的前一版本，操作者反映还是不错的，很实用。

 

产品用料汇总是主窗口，左上窗口是产品及数量，右上窗口是左边窗口所有产品所需要的各种材料数量的汇总，下面的窗口是单个产品的用了信息。

 

用料表的目录树代码能否帮改进一下。还有，通过表生成的目录树应该能排序就好。

帮我写一个"计算用料"数据列的计算代码好吗?

关联字段有三列,第一行代码如何写?

非常感谢你的耐心

不好意思，我还是不会，9楼实例中[用料]表中“计算用料”列的计算代码