InStr 获取所有记录字段非重复ID

Henry D. Sy

1. <div class="blockcode"><blockquote>'------------------------------------------
   
2. '获取所有记录字段非重复ID
   
3. '------------------------------------------
   
4. Public Function gIdSeries(ByVal tblName As String) As String
   
5.     Dim rs As New ADODB.Recordset
   
6.     Dim I As Integer
   
7.     Dim strWhat As String
   
8.     Dim intID As Long
   
9.     rs.Open tblName, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
10.     Do While Not rs.EOF
    
11.         For I = 0 To rs.Fields.Count - 1
    
12.             If Trim(rs.Fields(I)) <> "-" Then
    
13.                 intID = Left(rs.Fields(I), InStr(rs.Fields(I), "-") - 1)
    
14.                 If InStr(strWhat, intID) = 0 Then
    
15.                     strWhat = strWhat & intID & ","
    
16.                 End If
    
17.             End If
    
18.         Next
    
19.         rs.MoveNext
    
20.     Loop
    
21.     If Len(strWhat) > 0 Then
    
22.         gIdSeries = Left(strWhat, Len(strWhat) - 1)
    
23.     End If
    
24.     rs.Close
    
25.     Set rs = Nothing
    
26. End Function
    
27. 
    
28. Private Sub Command0_Click()
    
29.     Dim A As String
    
30.     A = gIdSeries("TEMP")
    
31.     MsgBox A
    
32. <div>End Sub</div><div>
    
33. </div><div>提取“-”之前的ID好，总是缺少某些数字，这个例子缺少6，7</div><div>当数据量大反而正常。
    
34. 
    
35. 
    
36. </div>

复制代码

Henry D. Sy

提取“-”之前的ID号，总是缺少某些数字，这个例子缺少6，7
当数据量大反而正常

tmtony

有时正常，有时失常？

Henry D. Sy

tmtony 发表于 2020-4-9 16:08
有时正常，有时失常？

就这几条记录，永远错误
多增加几条记录，反而正常。

tmtony

Henry D. Sy 发表于 2020-4-9 18:14
就这几条记录，永远错误
多增加几条记录，反而正常。

这个正常的。因为你先取到 16, 所以 当新的是 6,  就认为存在了。
所以要改进一下就可以了

tmtony

Henry D. Sy 发表于 2020-4-8 21:01
提取“-”之前的ID号，总是缺少某些数字，这个例子缺少6，7
当数据量大反而正常

改成下面这样的代码就可以解决了

1. 
   
2. Public Function gIdSeries(ByVal tblName As String) As String
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim I As Integer
   
5.     Dim strWhat As String
   
6.     Dim intID As Long
   
7.     rs.Open tblName, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
8.     Do While Not rs.EOF
   
9.         For I = 0 To rs.Fields.Count - 1
   
10.             If Trim(rs.Fields(I)) <> "-" Then
    
11.                 intID = Left(rs.Fields(I), InStr(rs.Fields(I), "-") - 1)
    
12.                 If intID = 6 Then
    
13.                    Debug.Print intID
    
14.                 End If
    
15.                 If InStr("," & strWhat, "," & intID & ",") = 0 Then
    
16.                     strWhat = strWhat & intID & ","
    
17.                 End If
    
18.             End If
    
19.         Next
    
20.         rs.MoveNext
    
21.     Loop
    
22.     If Len(strWhat) > 0 Then
    
23.         gIdSeries = Left(strWhat, Len(strWhat) - 1)
    
24.     End If
    
25.     rs.Close
    
26.     Set rs = Nothing
    
27. End Function

复制代码

Henry D. Sy

tmtony 发表于 2020-4-11 08:33
这个正常的。因为你先取到 16, 所以 当新的是 6,  就认为存在了。
所以要改进一下就可以了

晕晕晕,这点没注意到!
多亏 你提醒