执行上述代码后，在学历列输入"bs"，即可自动替换为“博士”，输入"gz"，即可自动替换为“高中”

我看到这个地方

想把 dic.Add("bk","本科")

这个代码变成引用表中的某两列，怎么加代码啊。

Dim dmp As New DataMap
dmp.Add("Apple","苹果")
dmp.Add("Banana","香蕉")
dmp.Add("Pineapple","波罗")
dmp.Add("Orange","桔子")
Tables("订单").Cols("产品编号").DataMap = dmp

Dim mdm as New MultiDataMap
mdm.add("0|苹果|Apple")
mdm.add("1|香蕉|Banana")
mdm.add("2|桔子|Orange")
mdm.add("4|菠萝|pineapple")
mdm.ValueCol = 0
mdm.DisplayCol = 1
CurrentTable.Cols("第一列").DataMap = mdm.CreateDataMap()

这些都想引用，不会啊。

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

我就是想看一下代码。引用的表和列随便。

示例四

下图是一个成绩表，显然总分列是可以用表达式列来计算的，但是这次看看如何使用代码来计算总分。

在该表的DataColChanged事件中加入下面的代码即可：

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "语文","数学","英语","物理","生物","地理","政治","历史"
        dr("总分") = dr("语文")+dr("数学")+dr("英语")+dr("物理")+dr("生物")+dr("地理")+dr("政治")+dr("历史")
End Select

这个也想引用别的表的，如dr("语文") 引用 表B的高中语方等等。意思就是dr("总分")  是由好几个表的成绩加起来的。

假设有表B，列名称分别是拼音缩写和名称

表A的学历列做数据字典，用代码引用表B这两列，代码是：

Dim dic As New Dictionary(Of String,String)
Dim Arys As List(Of String())
Arys = DataTables("表B").GetUniqueValues("", "拼音缩写","名称")
For Each Ary As String() In Arys
    dic.Add(Ary(0),Ary(1))
Next
Tables("表A").Cols("学历").CodeDictonary = dic

自己练练