主题：想给引入的表加个映射字典

就是显示出来的值并不是真正的值，怎么弄？

还有我只想通过代码设置，而不是从列属性中一个一个录入（数据太多伤不起呀）

我找了一圈发现以下代码，但只对手动录入时有效，直接数据库引入的表无效

Dim str As String =FileSys.ReadAllText(ProjectPath & "Attachments/table_name.txt",Encoding.Default)
Dim dic As New Dictionary(Of String,String)

For Each s As String In str.split(";") '分割后循环写入字典
    Dim ary() = s.split(",")  '再次分割键和值
    If dic.ContainsKey(ary(0)) Then '判断是否已经包含键
        Output.Show("己存在键 :" & ary(0) )
    Else
MessageBox.Show(ary(0) & ary(1))
      dic.Add(ary(0), ary(1))
   End If
Next
Tables("ACCOUNTS_BACKLOG_D").Cols("title").CodeDictionary=dic '把字典赋值给列 (输入映射功能)