在Access中使用逗号分隔的字符串进行Alphabetize

Question

我不太确定从哪里开始，我有一小部分代码循环遍历表并将所有字段名称写入字符串以用作值rowsource在一个组合框中。我希望这些项目是按字母顺序排列的，但我不太确定使用字符串变量（或在组合框RowSource属性中）执行此操作的最佳方式。

任何想法或建议的最佳方式来做到这一点？

如果它是有帮助这里是我的代码有：

Dim strFields As String 
Dim fldTemp As Field 
Dim intCount As Integer 
Dim setData As DAO.Recordset 

Set setData = CurrentDb.OpenRecordset("SELECT * FROM tblEnvironment WHERE 1 = 2") 

For Each fldTemp In setData.Fields 
    strFields = strFields & ", " & fldTemp.Name 
Next 

strFields = Mid(strFields, 3) 

For intCount = 1 To 10 
    Controls("cboField" & intCount).RowSource = strFields 
Next 

StrFields是我想alphabatize什么。提前致谢！

Answer 1

我会将您正在创建的字符串转换为数组，然后对该数组进行排序。然后，您可以使用Join使用冒泡排序发现here这是什么，我会调整你的代码

Dim strFields As String 
Dim fldTemp As Field 
Dim intCount As Integer 
Dim setData As DAO.Recordset 
Dim FieldList() As String ' array to hold field names 

Set setData = CurrentDb.OpenRecordset("SELECT * FROM tblEnvironment WHERE 1 = 2") 

intCount = 0 
For Each fldTemp In setData.Fields 
    ReDim Preserve FieldList(intCount + 1) ' expand the array for each field name 
    FieldList(intCount) = fldTemp.Name 
    intCount = intCount + 1 
Next 

BubbleSort FieldList 'sort the fieldnames 

strFields = Join(FieldList, ",") 'join the names together with commas 
strFields = Mid(strFields, 3) 

For intCount = 1 To 10 
    Controls("cboField" & intCount).RowSource = strFields 
Next 

的冒泡排序的代码，只是在链接的情况下到数组转换为一个逗号分隔的字符串

腐：

Sub BubbleSort(arr) 
    Dim strTemp As String 
    Dim i As Long 
    Dim j As Long 
    Dim lngMin As Long 
    Dim lngMax As Long 
    lngMin = LBound(arr) 
    lngMax = UBound(arr) 
    For i = lngMin To lngMax - 1 
    For j = i + 1 To lngMax 
     If arr(i) > arr(j) Then 
     strTemp = arr(i) 
     arr(i) = arr(j) 
     arr(j) = strTemp 
     End If 
    Next j 
    Next i 
End Sub 

Answer 2

如果您创建strFields一个字符串数组，然后你可以使用WizHook.SortStringArray到数组排序。我在下面添加了一个SortStringArray演示程序。

你可以在你的代码像这样使用SortStringArray ...

Dim astrFields() As String 
astrFields = Split(strFields, ", ") 
WizHook.SortStringArray astrFields 

如果你需要它作为再次串...

strFields = Join(astrFields, ", ") 

或者，也许你可以得到由走阵...

For intCount = 0 To UBound(astrFields) 
    Debug.Print intCount, astrFields(intCount) 
Next 

信息大约WizHook是恐慌。当我探索WizHook奥秘时，我为其SortStringArray方法创建了此示例程序。

Public Sub WizHook_SortStringArray() 
    ' The WizHook Key is not required for this procedure. 
    'WizHook.Key = 51488399 
    Dim a(3) As String 
    Dim i As Long 
    a(0) = "zulu" 
    a(1) = "alpha" 
    a(2) = "gamma" 
    a(3) = "delta" 
    WizHook.SortStringArray a 
    For i = 0 To 3 
     Debug.Print a(i) 
    Next i 
End Sub 

我在该程序的原始版本的评论中添加了。某些WizHook方法需要Key值。但是，我不相信SortStringArray呢。如果它不能像写入那样工作，请尝试启用WizHook.Key行。