主题：帮我看一个代码.

  Select Case CurrentTable.DataTable.Name

         Case  "商品档案","客户档案","供应商档案","销售人员档案","小区档案","标准价格表","采购单","促销价格表","促销套餐价格","销售订单","潜在客户","交款日报","厂家返利登记表","采购合同","请购单","仓库档案","精加工费用","安装费类别"

        Dim Name As String

        For Each dc As Col In CurrentTable.Cols

            If dc.DataCol.IsDate Then

                Tables("查询").Cols("查询内容").DropForm = "万年历"

            End If

            Name = Name & dc.name & "|"

            Tables("查询").Cols("查询项目").Combolist= Name

        Next

        For Each dr As Row In Tables("查询").Rows

            If dr("比较") <>"" Or dr("查询内容")<>"" Then

                dr("对应表")= CurrentTable.DataTable.Name

            Else

                dr("对应表")=""

            End If

        Next

意思是切换到这个当前表有一个筛选的窗口表里面的表名自动加载当前表的表名,但问题是,我现在有几十个表名,一一写出来太多了,有没有简单的写法?