数字筛选和统计子窗体不同编号个数

1.编计不重复编号的数

  做一个分类查询1

  SELECT 编号 FROM 表1 GROUP BY 编号

  Private Sub Form_Load()
    Me.Text1 = DCount("*", "查询1")

  End Sub

2.去掉重复的数字

   在模块建立一个自定义函数

   Public Function TestNm(StrNm As String) As String
    Dim i As Integer
    Dim Tem As String
 
    Tem = ""
 
    For i = 0 To 9
 
      If InStr(1, StrNm, CStr(i)) = 0 Then
  
        Tem = Tem & i
      End If
    Next

    TestNm = Tem
  End Function

建立以此为基础的查询2

SELECT 表1.id, 表1.编号, 表1.五位数字, TestNm(表1.五位数字) AS 不同的数字
FROM 表1;

点击下载此附件