access VBA CurrentDb.TableDefs(i) 是怎么排序 的

在VBA（Visual Basic for Applications）中，`CurrentDb.TableDefs` 属性用于访问当前数据库中所有表的定义。如果你想要对这些表进行排序，你需要在引用 `TableDefs` 集合之前，将其转换为数组或其他可以进行排序操作的对象。

但是，VBA本身并不直接支持对集合进行排序。因此，你可能需要先将集合中的对象属性复制到数组或者字典中，然后对这个数组或字典进行排序，最后再根据排序结果进行操作。

这里有一个简单的示例代码，说明如何通过表名对 `TableDefs` 进行排序：

Dim tdf As DAO.TableDef
Dim tdfNames As Variant
Dim i As Integer
Dim j As Integer
Dim temp As Variant

' 获取表的总数
i = CurrentDb.TableDefs.Count

' 将表名复制到数组中
ReDim tdfNames(1 To i)
For j = 1 To i
    Set tdf = CurrentDb.TableDefs(j - 1)
    tdfNames(j) = tdf.Name
Next j

' 使用简单的冒泡排序算法对表名进行排序
For i = 1 To UBound(tdfNames) - 1
    For j = i + 1 To UBound(tdfNames)
        If tdfNames(i) > tdfNames(j) Then
            ' 交换元素
            temp = tdfNames(i)
            tdfNames(i) = tdfNames(j)
            tdfNames(j) = temp
        End If
    Next j
Next i

' 输出排序后的表名
For j = 1 To UBound(tdfNames)
    Debug.Print tdfNames(j)
Next j

这个示例使用了冒泡排序算法，它是一个简单的排序算法，但并不是最高效的排序方法。在实际应用中，你可能会考虑使用更高效的排序算法，如快速排序或归并排序。

需要注意的是，这个例子只是将表名进行了排序，并没有改变 `TableDefs` 集合中表的顺序。如果你需要根据排序结果来操作这些表，你还需要进一步的代码来根据排序后的数组进行索引访问。