提取不重复值及计数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t As Table =e.Form.controls("Table4").Table
Dim r As Row=e.Form.controls("Table4").Table.Current
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) & "'")
    str &= "/" & Products(j) & "/" & ps(j) & "个记录" & vbcrlf
Next
MessageBox.Show(str, "提示")

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