此記錄集需要與進入內部的值進行比較For Each：
Do While Not rs.EOF
Debug.Print Trim(rs!CodeNr)
rs.MoveNext
Loop
結果：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
For Each idx In td.Indexes
If InStr(1, idx.Fields, " ScanSpe_") = 1 Then
Debug.Print ExtractNumber(idx.Fields)
End If
Next
結果：1 10 11 12 13 14 15 16 2 3 4 5 6 7 8 9
如何檢查這兩個結果，我知道哪一個匹配或不匹配？任何幫助都會受到幫助。
uj5u.com熱心網友回復：
打開rs排序Str(rs!CodeNr)，不是在Do .. While一個For .. Next回圈中。
同樣對于ts.Indexes; 使用For .. Next回圈。
然后，您可以匹配第一個回圈的計數器值和第二個回圈的計數器值，并檢查兩個值是否匹配。
究竟如何取決于您是否希望找到匹配項或不匹配項，以及兩個集合中的兩個元素計數是否相等。
uj5u.com熱心網友回復：
我自己嘗試過，這段代碼作業得很好。
Do While Not rs.EOF
For Each idx In td.Indexes
If InStr(1, idx.Fields, " ScanSpe_") = 1 Then
'Debug.Print ExtractNumber(idx.Fields)
If ExtractNumber(idx.Fields) = Trim(rs!CodeNr) Then
If rs!GS1Dupli = 0 Then
rs.Edit
rs!GS1Dupli = -1
rs.Update
End If
End If
End If
Next
rs.MoveNext
Loop
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/384777.html
上一篇：Xlwings插入沒有格式的新行
下一篇：將單個檔案夾添加到創建的檔案