开发篇补充一个类 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

字典

一般用户可以忽略本节内容，因为字典在Foxtable中的使用场合并不多。

Dictionary表示键与值的集合，俗称字典。

定义一个字典的语法是：

Dim 变量名 As New Dictionary(Of 键类型, 值类型)

例如：

Dim zd As New Dictionary(Of Integer, String)

表示定义了一个字典zd，键的类型是整数型(Integer)，值的类型事字符型(String)。

键和值可以是任何类型，例如：

Dim zd As New Dictionary(Of String, Date)

字典的成员包括：

名称	类型	说明
Add	方法	将指定的键和值添加到字典中
Remove	方法	移除指定的键和值
Clear	方法	清除所有的键和值
ContainsKey	方法	判断是否包含指定的键
ContainsValue	方法	判断是否包括指定的值
Count	属性	返回字典中键/值对的数目
Keys	属性	返回健的集合
Values	属性	返回值的集合

示例一

Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
zd.Remove(1) '移除键1及其对应的值
zd.Remove(5) '移除键5及其对应的值
Output.Show(zd(2)) '显示键2对应的值
Output.Show(zd(3)) '显示键3对应的值
If zd.ContainsKey(1) = False Then '是否存在键1
    zd.Add(1,"苹果")
End If
If zd.ContainsValue("桃子") = False Then '是否存在值"桃子"
    zd.Add(5,"桃子")
End If
For Each k As Integer In zd.Keys '显示所有键及其对应的值
    Output.Show(K & ":" & zd(k))
Next
For Each v As String In zd.Values '显示所有值
    Output.Show(v)
Next
zd.Clear '清除所有的键和值

主题：开发篇补充一个类