读取数据字典的值,循环目录树的节点,修改目录树节点值,即可
Dim dmp = Tables("表A").cols("第二列").DataMapmsgbox(dmp("1"))msgbox(dmp("2"))