类的继承、封装 演示。 Dictionary 词典增强，第二弹！ 2维字典

山中老人

在VBA 中 Scripting.Dictionary 词典 真是一个非常好用的东西，我的程序很多地方都使用到它。前面我已经搞了个DevelopDictionary，大家很热情。再搞个二维字典，大家试试！


词典一般每个Key下面只能存一个Item，虽然可以用数组做Item，但操作起来很麻烦！
所以，第二弹我把Scripting.Dictionary 改造成了可存储多个Item的二维词典：DevelopDictionary2
与DevelopDictionary相比，取消了事件处理代码，Item二维化改造。可设置列数(每个Key带的Item数)，设置列名。

嗯！ 大家可以将DevelopDictionary2，看做是一个放在内存中的表。

根据各位网友的意见，上传附件 实例，包括一些功能测试（演示）的过程！

2020-07-17 关于Dictionary字典排序的深入思考！

山中老人

测试代码：


Sub cs单列模式()
    Dim dd As DevelopDictionary2, dd2 As New DevelopDictionary2, Str As String
    Set dd = New DevelopDictionary2
    dd("a") = "A"
    dd("b") = "B"
    dd(3) = "C"
    Debug.Print VBA.Join(dd.Keys, ",")
    Debug.Print VBA.Join(dd.Items, ",")
    Debug.Print dd.RowIndex("b") '行号(从0开始编号)
    Debug.Print dd.Index("a")  '行号(从0开始编号)
   
    Str = dd.StrJoin(Chr(13)) '全部数据 输出字符串
    Debug.Print Str
    Call dd2.StrSplit(Str, Chr(13)) '字符串输入
    Debug.Print
    Debug.Print "dd2"
    Debug.Print dd2.StrJoin(Chr(13))
End Sub


Sub cs读写列名()
    Dim dd As DevelopDictionary2, dic As Scripting.Dictionary
    Set dd = New DevelopDictionary2
    dd.ColumnCount = 3 '设置列数
'    Debug.Print dd.Dict.Count
    dd.ColumnName(0) = "ID"
    dd.ColumnName(1) = "姓名"
    dd.ColumnName(2) = "年龄"
    dd.ColumnName(1) = "年龄2"
    Debug.Print dd.ColumnName(0)
    Debug.Print dd.ColumnName(1)
    Debug.Print dd.ColumnName(2)
    Debug.Print dd.ColumnIndex("姓名") '列号
End Sub

Sub cs读写数据() '排序
    Dim dd As DevelopDictionary2, dic As Scripting.Dictionary
    Set dd = New DevelopDictionary2
    dd.ColumnCount = 4 '设置列数
    dd.ColumnName(0) = "ID"
    dd.ColumnName(1) = "姓名"
    dd.ColumnName(2) = "年龄"
    dd.ColumnName(3) = "学历"
   
    dd.Item(1, "ID") = 11
    dd.Item(1, "姓名") = "张三"
    dd.Item(1, "年龄") = 25
    dd.Item(1, "学历") = "初中"
'    Debug.Print dd.Item(1, "ID")
'    Debug.Print dd.Item(1, "姓名")
'    Debug.Print dd.Item(1, "年龄")
'    Debug.Print dd.Item(1, "学习记录")
   
    dd.Item(2, "ID") = 12
    dd.Item(2, 1) = "李四"
    dd.Item(2, "年龄") = 54
    dd.Item(2, 3) = "文盲"
   
    dd.Item(7, "ID") = 4
    dd.Item(7, 1) = "张飞"
    dd.Item(7, "年龄") = 15
    dd.Item(7, 3) = "幼儿园大班"
    Debug.Print dd.StrJoin(Chr(13), ",")
    Debug.Print
   
    '按年龄排序
    Debug.Print "年龄"
    Call dd.Sort(False, , "年龄")
    Debug.Print dd.StrJoin(Chr(13), ",")
    Debug.Print
   
    '按ID排序
    Debug.Print "ID"
    Call dd.Sort(False, , "ID")
    Debug.Print dd.StrJoin(Chr(13), ",")
    Debug.Print
End Sub

Sub cs测试克隆() '复制词典
    Dim dd As DevelopDictionary2, dd2 As DevelopDictionary2
    Set dd = New DevelopDictionary2
    dd.ColumnCount = 4 '设置列数
    dd.ColumnName(0) = "ID"
    dd.ColumnName(1) = "姓名"
    dd.ColumnName(2) = "年龄"
    dd.ColumnName(3) = "学历"
   
    dd.Item(1, "ID") = 11
    dd.Item(1, "姓名") = "张三"
    dd.Item(1, "年龄") = 25
    dd.Item(1, "学历") = "初中"
   
    dd.Item(2, "ID") = 12
    dd.Item(2, 1) = "李四"
    dd.Item(2, "年龄") = 54
    dd.Item(2, 3) = "文盲"
   
    dd.Item(7, "ID") = 4
    dd.Item(7, 1) = "张飞"
    dd.Item(7, "年龄") = 15
    dd.Item(7, 3) = "幼儿园大班"
   
   
    Set dd2 = dd.Clone '克隆
    dd2.Item(7, 3) = "大班毕业" '修改指定位置的Item
   
    Debug.Print "dd 列名：" & VBA.Join(dd.ColumnNameS, ",")
    Debug.Print dd.StrJoin(Chr(13), ",")
    Debug.Print
   
    Debug.Print "dd2 列名：" & VBA.Join(dd2.ColumnNameS, ",")
    Debug.Print dd2.StrJoin(Chr(13), ",")
    Debug.Print
End Sub

zq1210

前排留名，谢谢分享

山中老人

嗯！更新了部分代码，将【行】（一个Key下的多个Item）用封装的数组对象ArrayObj替代，让整个数据结构更加清晰。
列号从1开始排列，0留给Key。列可以单独命名。
模仿数据库访问类Recordset，增加当前行NowRow概念，多列环境访问某个Item，可以先定行坐标，再移动列坐标，确定位置。
本身能支持字典原有所有功能，把Scripting.Dictionary看做只有两列（Key列和一个Item列）的表。
下图：
就是对列的命名，可以用它来确定列位置。
表示 列的性质和列号，也可以用它们来定位列。

   表示主键Key ，用它来定位行。





2020-07-16 8:00更新附件

qcw911

山中老人 发表于 2020-7-15 22:18
嗯！更新了部分代码，将【行】（一个Key下的多个Item）用封装的数组对象ArrayObj替代，让整个数据结构更加 ...

楼主继续，那小板凳继续听讲

larer

支持字典嵌套吗?还有与传统字典相比,运行速度如何?

山中老人

larer 发表于 2020-7-17 11:30
支持字典嵌套吗?还有与传统字典相比,运行速度如何?

Dictionary 原有的所有功能保留， 使用方法不变。

Dictionary 原有功能直接传递请求，运行速度应该没变化。