主题：类似交叉统计的统计

如果没有更好的办法,就这样:  建立一个和产品使用表一样结构的空表(或用代码生成一个临时表),筛选的结果充填到这个空表中,再在这个表(被充填数据的表)上进行交叉统计..............应该ok了~  

做个例子上来，包括：原始表（包含一定数据行） 和 要生成的交叉统计表的结构。。。。。。。。

楼主要在统计表中固定一些列，来达到统计的结果。也不知道筛选后会有几个产品被筛选出来的～

楼主你在“产品表”做个按钮，在你筛选完后（要排除重复内容），点击这个按钮 代码：  试一试吧
（注意：与数字计算有关的列要改为整数型（或其他数字型），统计表中产品A的列名为‘A ’，列标题为‘产品A’，其他列亦同）

DataTables("统计表").DataRows.Clear()
for i as Integer = 0 to tables("产品表").count -1
    Dim dr As DataRow
    dr = DataTables("统计表").AddNew()
    dr("医生") = currenttable(i,"医生")
next

MainTable = Tables("统计表")
for i as Integer = 0 to tables("统计表").count -1
    For Each cl As Col In tables("统计表").Cols
        if cl.name <> "日期" and cl.name <> "医生"
            currenttable(i,cl.name)= DataTables("产品表").Compute("Sum(数量)", "产品 = '" & cl.name & "'and 医生 = '" & currenttable(i,"医生") & "' ")
        end if
    Next
Next