主题：[求助]关联表统计问题

必須去掉數據中的『'』才能統計,因『'』在狐表中比較特殊:表達式中,字符串用单引号引用.

Dim T,Tj,T1,Ts As String
Dim Ls As List(Of String)
Dim dt As DataTable = DataTables("柜型")

For Each r As Row In Tables("统计").Rows
    T = "关联 = " & r("_Identify")
    Ls = dt.GetUniqueValues( T ,"柜型")
    For Each T1 In Ls
        Tj = T & " and 柜型 = '" & T1 & "'"
        Ts = Ts & " " & dt.Compute("Count(柜型)",Tj) & "×" & T1
    Next
    r("统计")=Ts.substring(1)
    Ts =Nothing
Next