主题：[求助]交叉统计

你可以看看：

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

在命令窗口执行：

DataTables("表B").DataRows.clear
For Each nm As String In DataTables("表A").GetUniqueValues("","产品")
    Dim dr As DataRow = DataTables("表B").Addnew()
    dr("产品") = nm
    dr("采购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '采购入库'")
    dr("生产入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '生产入库'")
    dr("外购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '外购入库'")
Next