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
新建个项目,在命令窗口测试没用