- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 开发篇补充一个类 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6067)
-- 发布时间：2010/3/1 12:50:00
-- 开发篇补充一个类
字典
一般用户可以忽略本节内容，因为字典在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 \'清除所有的键和值
-- 发布时间：2010/3/1 12:55:00
--
好哇
-- 发布时间：2010/3/1 12:58:00
--
还没明白这个东东到底用在什么地方，可能是以前用集合的方式习惯了！
也强烈支持一下！
[此贴子已经被作者于2010-3-1 12:57:59编辑过]
-- 发布时间：2010/3/1 13:03:00
--
先顶一下！
-- 发布时间：2010/3/1 15:31:00
--
老爹，这个东西好，但是在规范化的数据库里字典已经建立完善，不知道它还有何用？能否做个小示例参考参考？
当然，采用内部表的项目例外。
[此贴子已经被作者于2010-3-1 15:33:01编辑过]