Collection(集合) + Dictionary(字典) 解决 MS Access Listbox 没有 List属性 的问题

Collection(集合) + Dictionary(字典) 解决 MS Access Listbox 没有 List属性 的问题

{"作者"："Antoniothefuture"

"关键词"：["VBA"，"Collection"，"Dictionary"，"Access"，"Listbox"，"字典"]

"开发平台"："不限"

"开发语言"："VBA"

"简介"： "在VBA中使用Collection(集合) + Dictionary(字典) 解决 MS Access Listbox 没有 List属性 的问题"

}

许多朋友在使用VBA进行开发时，为了兼顾兼容性（特别是64位的Office)，往往会选择在界面上使用Listbox这个控件，这个控件在Excel中有List属性，可以通过 List(x,y) = ??? 的过程给多列Listbox的某个格子赋值，但是在Access中，这个控件是没有List属性的，不能直接给某个格子赋值。

 

现在我的一个Access项目需要大量使用Listbox而且要实现很多直接更改格子内容的过程，我不想使用其他控件或者API之类的，以确保我的项目是可兼容性非常强的，我在网上找了很久都没找到合适的方案，于是就靠自己思考，今天想到一个方案，就是利用Collection 嵌套 Dictionary 的方法，构建一个类似于结构化表格的内存结构，对这个对象进行操作，再刷新到Listbox里：

 

首先我们需要在窗体模块中定义全局变量：

Dim TabInfo as New Collection
Dim LineDic as Object

对表新增数据时，TabInfo嵌套LineDic，先将LineDic声明为Dictionary：

Set LineDic = CreateObject("Scripting.Dictionary")
LineDic.add "姓名","张学友"
LineDic.add "性别","男"
LineDic.add "语言","粤语"
LineDic.add "收藏",""
TabInfo.add LineDic

Set LineDic = CreateObject("Scripting.Dictionary")
LineDic.add "姓名","谭咏麟"
LineDic.add "性别","男"
LineDic.add "收藏",""
TabInfo.add LineDic

RefreshList

每次改动完TabInfo，都调用RefreshList刷新一次Listbox：

Sub RefreshList()
with me.LTab
    For i = .ListCount - 1 to 0 step -1
        .RemoveItem(i)
    Next
    For i = 1 to TabInfo.Count
        .AddItem TabInfo(i)("姓名") & ";" & TabInfo(i)("性别") & ";" TabInfo(i)("语言") & ";" TabInfo(i)("收藏")
    Next
End With
End Sub

我们可以对TabInfo中已有的值进行这样的修改，刷新之后，Listbox中对应的值就会改变了。

TabInfo(i)("收藏") = ”√"

篇幅很短，但应该能帮到大家。