主题：提取不重复值及计数

此主题相关图片如下：图像 2.jpg

想实现的功能：表是窗口1_Table4(经过筛选的表),提取临标=True，且其月份辅助列不重复的值，同时统计不重复值的个数。

如上面的图片中，想要的结果：201905/1个记录/201906/3个记录

窗口1中一按钮代码如下：

Dim t As Table =e.Form.controls("Table4").Table
Dim r As Row=e.Form.controls("Table4").Table.Current
Dim ss As new List(of String)
Dim str As String
If Tables("入库单").DataTable.DataCols.Contains("月份辅助列")=False  Then
    Tables("入库单").DataTable.DataCols.Add("月份辅助列", Gettype(String),6)
End If
Dim ps As new List(of Integer)
Dim Products As List(Of String)= e.Form.controls("Table4").Table.DataTable.GetValues("月份辅助列",iif(t.filter>"", t.filter, "1=1") & " And 临标=true")
For j As Integer = 0 To Products.Count-1
    ps(j)=t.Compute("count(月份辅助列)",iif(t.filter>"", t.filter, "1=1") & " And 临标=true and 月份辅助列='Products(j) '")
    ss(j)= Products(j)
    str &= "/" & ss(j) & "/" & ps(j) & “个记录”
    str = str.trim("/")
Next
MessageBox.Show(""& str &"", "提示")