主题：引用了外部数据表，想让值产生映射关系怎么弄？

比如我数据库name字段是一串ID为：34123，但我显示出来要为：林小于

怎么样写这种映射关系?

以下是我的思路，但好像不行：

Dim table_name_str As String =“34123：林小于；23433：黄小明”

Dim table_name As New Dictionary(Of String,String)
For Each s As String In table_name_str.split(";") '分割后循环写入字典
    Dim ary() = s.split(":")  '再次分割键和值
    If table_name.ContainsKey(ary(0)) Then '判断是否已经包含键
        Output.Show("己存在键 :" & ary(0) )
    Else

      table_name.Add(ary(0), ary(1))
   End If
Next
Tables("ACCOUNTS_BACKLOG_N").Cols("name").CodeDictionary=table_name '把字典赋值给列 (输入映射功能)

然后直接设置列属性即可：http://www.foxtable.com/webhelp/scr/0062.htm