Foxtable(狐表)用户栏目专家坐堂 → 想给引入的表加个映射字典


  共有2005人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
夜散点炽
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:74 积分:682 威望:0 精华:0 注册:2018/3/5 14:34:00
想给引入的表加个映射字典  发帖心情 Post By:2018/3/15 19:39:00 [只看该作者]

就是显示出来的值并不是真正的值,怎么弄?
还有我只想通过代码设置,而不是从列属性中一个一个录入(数据太多伤不起呀)
我找了一圈发现以下代码,但只对手动录入时有效,直接数据库引入的表无效


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 '把字典赋值给列 (输入映射功能)

[此贴子已经被作者于2018/3/15 19:39:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/15 20:19:00 [只看该作者]


 回到顶部