以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码项目只能手动在单元格里面敲代码吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64637)
--  作者：jlccrtl
--  发布时间：2015/2/26 11:06:00
--  [求助]代码项目只能手动在单元格里面敲代码吗？
http://www.foxtable.com/help/topics/2124.htm

代码项目列
我直接把代码从别处复制到此列
代码怎么能变成我想要的值

比如我把上面链接中的图2 中的第一列复制到 代码项目列
会怎么会出来第二列的内容呢？
能搬到吗？
--  作者：Bin
--  发布时间：2015/2/26 11:12:00
--  
自动输入的意思?
--  作者：有点甜
--  发布时间：2015/2/26 11:12:00
--  

Dim dic As New Dictionary(Of String,String)
For Each dr As DataRow In DataTables("表B").Select("第一列 is not null")
    dic.Add(dr("第一列"), dr("第二列"))
Next

Tables("表A").Cols("第一列").CodeDictionary = dic

 

http://www.foxtable.com/help/topics/2125.htm

 
--  作者：jlccrtl
--  发布时间：2015/2/26 12:36:00
--  
两种都挺好，感谢版主给与解答。