|
本帖最后由 Henry D. Sy 于 2020-4-8 21:00 编辑
- <div class="blockcode"><blockquote>'------------------------------------------
- '获取所有记录字段非重复ID
- '------------------------------------------
- Public Function gIdSeries(ByVal tblName As String) As String
- Dim rs As New ADODB.Recordset
- Dim I As Integer
- Dim strWhat As String
- Dim intID As Long
- rs.Open tblName, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
- Do While Not rs.EOF
- For I = 0 To rs.Fields.Count - 1
- If Trim(rs.Fields(I)) <> "-" Then
- intID = Left(rs.Fields(I), InStr(rs.Fields(I), "-") - 1)
- If InStr(strWhat, intID) = 0 Then
- strWhat = strWhat & intID & ","
- End If
- End If
- Next
- rs.MoveNext
- Loop
- If Len(strWhat) > 0 Then
- gIdSeries = Left(strWhat, Len(strWhat) - 1)
- End If
- rs.Close
- Set rs = Nothing
- End Function
- Private Sub Command0_Click()
- Dim A As String
- A = gIdSeries("TEMP")
- MsgBox A
- <div>End Sub</div><div>
- </div><div>提取“-”之前的ID好,总是缺少某些数字,这个例子缺少6,7</div><div>当数据量大反而正常。
- </div>
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|