主题：[求助]代码项目只能手动在单元格里面敲代码吗？

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