主题：哪位大师能帮我看看这个EXCELE报表如何实现

SQL比较绕花眼，想掌握有难度。

DataTables("统计").DataRows.Clear
Dim vals As List(Of String) = DataTables("表C").GetValues("省")
For Each val As String In vals
    Dim dr As DataRow = DataTables("统计").AddNew
    dr("省") = val
    dr("销售金额") = DataTables("表C").Compute("Sum(金额)","省 = '" & val & "'")
    dr("销售人员数") = DataTables("表C").GetValues("销售","省 = '" & val & "'").Count
Next