根据表A表B的数据,怎么生成表C的报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("表a", Gettype(Double))
For Each v As String In DataTables("表B").GetValues("第二列")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("第一列")
    Dim dr1 As DataRow = DataTables("表D").AddNew()
    dr1("姓名") = v
    Dim sum As Double = 0
    For Each dr As DataRow In DataTables("表A").Select("第一列 = '" & v & "'")
        sum += val(dr("第二列"))
    Next
    dr1("表A") = sum
    sum = 0
    For Each dr As DataRow In DataTables("表A").Select("第一列 = '" & v & "'")
        sum += val(dr("第二列"))
    Next
    For Each vv As String In DataTables("表B").GetValues("第二列", "第一列 = '" & v & "'")
        sum = 0
        For Each dr As DataRow In DataTables("表B").Select("第一列 = '" & v & "' and 第二列 = '" & vv & "'")
            sum += val(dr("第三列"))
        Next
        dr1(vv) = sum
    Next
Next
MainTable = Tables("表D")

主题：根据表A表B的数据,怎么生成表C的报表