CodeDictionary

用于设置列的代码项目，Dictionary类型。

示例：

Dim dic As New Dictionary(Of String,String)
dic.Add("bs","博士")
dic.Add("ss","硕士")
dic.Add("bk","本科")
dic.Add("dz","大专")
dic.Add("gz","高中")
Tables("表A").Cols("学历").CodeDictionary= dic

执行上述代码后，在学历列输入"bs"，即可自动替换为“博士”，输入"gz"，即可自动替换为“高中”

如果要取消此列的代码项目，只需：

Tables("表A").Cols("学历").CodeDictionary= Nothing

本页地址：http://www.foxtable.com/webhelp/topics/2125.htm