Dim dtb As New DataTableBuilder("临时表")
For Each 列名 As String In "列1,列2,列3".Split (",")
dtb.AddDef(列名, GetType(String), 50)
Next
dtb.Build()
Dim dic As New Dictionary(Of String, String)
dic.Add("bs", "博士")
dic.Add("ss", "硕士")
dic.Add("bk", "本科")
dic.Add("dz", "大专")
dic.Add("gz", "高中")
Tables("临时表").Cols("列1").CodeDictionary = dic
请测试,是本来就不可以,还是其他?