在VBA中对列表框进行排序

听起来像 行源类型 对于您的列表框是“值列表”。由于值来自表,请更改 行源类型 到“表/查询”,然后使用查询 行源 :

SELECT [name], [order]
FROM YourTable
ORDER BY [order];

您不必在列表框中显示[订单]…将其列宽设置为零。

您的列表框控件不必绑定到数据源字段就可以使用此方法。如果未绑定列表框,则不会存储用户选择,但列表框仍允许用户从列表框中进行选择。

注意,我把[姓名]和[订单]用方括号括起来了,因为它们都是保留字。见 Problem names and reserved words in Access

Dim First           As Integer
Dim Last            As Integer
Dim a               As Integer
Dim b               As Integer
Dim Temp            As String
Dim test()          As String

First = LBound(test)
Last = UBound(test)
For a = First To Last - 1
    For b = a + 1 To Last
        If test(a) > test(b) Then
            Temp = test(b)
            test(b) = test(a)
            test(a) = Temp
        End If
    Next b
Next a

For a = 1 To UBound(test)

    lst_email.AddItem test(a) 'lst_email is a listbox

Next