InStr 獲取所有記錄字段非重復(fù)ID

Henry D. Sy

1. <div class="blockcode"><blockquote>'------------------------------------------
   
2. '獲取所有記錄字段非重復(fù)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好，總是缺少某些數(shù)字，這個例子缺少6，7</div><div>當(dāng)數(shù)據(jù)量大反而正常。
    
34. 
    
35. 
    
36. </div>

復(fù)制代碼

Henry D. Sy

提取“-”之前的ID號，總是缺少某些數(shù)字，這個例子缺少6，7
當(dāng)數(shù)據(jù)量大反而正常

tmtony

有時正常，有時失常？

Henry D. Sy

tmtony 發(fā)表于 2020-4-9 16:08
有時正常，有時失常？

就這幾條記錄，永遠(yuǎn)錯誤
多增加幾條記錄，反而正常。

tmtony

Henry D. Sy 發(fā)表于 2020-4-9 18:14
就這幾條記錄，永遠(yuǎn)錯誤
多增加幾條記錄，反而正常。

這個正常的。因為你先取到 16, 所以 當(dāng)新的是 6,  就認(rèn)為存在了。
所以要改進(jìn)一下就可以了

tmtony

Henry D. Sy 發(fā)表于 2020-4-8 21:01
提取“-”之前的ID號，總是缺少某些數(shù)字，這個例子缺少6，7
當(dāng)數(shù)據(jù)量大反而正常

改成下面這樣的代碼就可以解決了

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

復(fù)制代碼

Henry D. Sy

tmtony 發(fā)表于 2020-4-11 08:33
這個正常的。因為你先取到 16, 所以 當(dāng)新的是 6,  就認(rèn)為存在了。
所以要改進(jìn)一下就可以了

暈暈暈,這點(diǎn)沒注意到!
多虧 你提醒