Dim dict1 As new Dictionary(of String,Integer)
dict1.Add("宏丰村",1)
dict1.Add("烈士村",2)
dict1.Add("大有村",3)
Dim dict2 As new Dictionary(of String,Integer)
dict2.Add("一组",1)
dict2.Add("二组",2)
dict2.Add("三组",3)
dict2.Add("四组",4)
dict2.Add("五组",5)
dict2.Add("六组",6)
dict2.Add("七组",7)
For Each r As Row In Tables("表A").Rows
r("第十列") = dict1(r("第一列")) & dict2(r("第二列"))
Next
Tables("表A").Sort="第十列"