很多的应用软件都在组合框和列表框中为用户提供了数据列表，这些数据是可以被存储在一个数据库或是配置文件之中的。这个数据通常是出现在一个数组之中或是可以很容易地转变为一个数组。这里面有一个函数，它提供了一个将二维数组加载到列表控制之中的普遍方法。
下面的方法假定这个数组在创建时先出现列的维度，接着是行的维度，有一个命令可以允许开发者来指定用来显示和数据索引的列。这个函数可以与recordsets共同使用，你可以使用GetRows函数来恢复在一个行列格式化的数组中的recordsets数据。
Private Sub LoadListControl(ByRef List As Control, _
ByVal Data As Variant, _
Optional ByVal DisplayIndex As Long = 0, _
Optional ByVal DataIndex As Long = -1)
Dim lngCount As Long
If Not ((TypeOf List Is ListBox) Or (TypeOf List Is ComboBox)) Then
Exit Sub
End If
List.Clear
For lngCount = LBound(Data, 2) To UBound(Data, 2)
Call List.AddItem(Trim(Data(DisplayIndex, lngCount)))
If DataIndex > -1 Then
List.ItemData(List.NewIndex) = Data(DataIndex, lngCount)
End If
Next lngCount
List.ListIndex = 0
End Sub
这个程序可以很容易地进行修改来处理行/列数组。它能保证列表控制在你的应用软件之中被加载。
