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

你拿一个半成品的出来，叫人家分析你的查询表，是绝对不现实的，逻辑上有错误！

首先应该有明细，那么你的物流查询库和你在窗口中的表就全部实现了！

你可以看看如何根据用户的输入合成条件：

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

至于排序，很简单，最后面加上一行：

Tables("表名").Filter = "列名"

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

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

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

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

 回复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