主题：查询表怎么做啊 ！感谢

 物流查询库，这个表设计的不合理。

 请把这个表的数据设计成物流窗口显示表这种形式。

这样的数据不规范，你必须有那样一张表，无论你是人工输入，还是用代码生成，都应该有一张那样的表。方便以后引用对应的数据。

自己想办法把这张表转换成规范的表。

 回复9楼，没有好的建议，必须要那样的数据表。

 用下面的代码可以生成这个表

For Each dr As DataRow In DataTables("物流查询库").DataRows
    For Each dc As DataCol In DataTables("物流查询库").DataCols
        If dc.Name.EndsWith("物流价格") Then
            Dim ary() As String = dc.Name.Split("_")
            Dim ndr As DataRow
            ndr = DataTables("物流窗口显示表").AddNew
            ndr("国家名称") = dr("国家信息_国家名称")
            ndr("物流方式") = ary(0)
            ndr("物流公司") = ary(1)
            ndr("物流价格") = dr(ary(0) & "_" & ary(1) & "_" & "物流价格")
            ndr("物流折扣") = dr(ary(0) & "_" & ary(1) & "_" & "物流折扣")
            ndr("物流费用") = dr(ary(0) & "_" & ary(1) & "_" & "物流费用")
        End If
    Next
Next

 回复11楼，10楼的代码只需要执行一次，生成一次即可。

 点击查询的时候，直接对生成的查询表进行筛选即可，参考 http://www.foxtable.com/help/topics/1058.htm

你直接控制表的filter条件即可。请参考12楼帮助。

 这个就是小问题。直接根据12楼的帮助去做即可。控制一下filter

Tables("窗口名_Table1").Filter = "1=2"

 如下

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

点击浏览该文件:测试.table

按钮代码

Dim Filter As String
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "发往目的 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "物流方式 = '" & .Value & "'"   '此处内容自行修改
    End If
End With
If Filter > "" Then
    DataTables("物流筛选表").LoadFilter = Filter
    DataTables("物流筛选表").Load
End If

不能直接在物料查询库查东西，必须生成一张临时表来查，这样效率才高，临时表只需要生成一次。

你也可以把生成的表弄成另一张表，对这张表进行筛选，筛选完，就内容填充到另一张表去。

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