主题：[求助]如何实现交叉查询

交叉统计很简单，不用写代码的，从这一节开始看：
http://www.foxtable.com/help/topics/0165.htm

喜欢写代码的：
http://www.foxtable.com/help/topics/0678.htm

交叉统计一样可以取数。

你先看看吧，如果搞不定，你可以做个例子传上来，然后说明问题，方便大家理解。

在命令窗口执行：

Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetUniqueValues("","期间")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetUniqueValues("","姓名")
    Dim dr1 As DataRow = DataTables("表D").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").DataRows
        If dr2("姓名") = v Then
            dr1(dr2("期间")) = dr2("成本中心")
        End If
    Next
Next
MainTable = Tables("表D")

就可以得到你要的表

张三在原始数据本来就没有1201和1202

呵呵，可以，不过除了图片，你最好也提供foxtable文件，这样别人才有兴趣帮你写代码的。