主题：统计某表某列不重复值的个数并展示。compute和count还有sum，有点晕啊（已解决）

 直接连接生成一个查询表即可

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

 然后对这个查询表进行 汇总统计、分组统计，都可以。

 统计不重复个数，参考

Dim Products As List(Of String)
Products = DataTables("产品").GetValues("产品名称","单价 > 100")

msgbox(Products.count)

参考代码

Dim str As String = ""
Dim dt As DataTable = DataTables("查询")
Dim gjs As List(of String) = dt.GetValues("国家")
str &= "国家:" & gjs.count & "个" & vbcrlf
For Each gj As String In gjs
    str &= gj & ","
Next
str = str.trim(",") & vbcrlf & "---------------" & vbcrlf
For Each gj As String In gjs
    Dim sfs As List(of String) = dt.GetValues("省份", "国家 = '" & gj & "'")
    str &= gj & ":省份" & sfs.count & "个" & vbcrlf
    For Each sf As String In sfs
        str &= sf & ","
    Next
    str = str.trim(",") & vbcrlf & "---------------" & vbcrlf
    For Each sf As String In sfs
        Dim css As List(of String) = dt.GetValues("市", "国家 = '" & gj & "' and 省份 = '" & sf & "'")
        str &= sf & ":" & css.count & "个市"& vbcrlf
        For Each cs As String In css
            str &= cs & ","
        Next
        str = str.trim(",") & vbcrlf & "---------------" & vbcrlf
    Next
Next
output.show(str)