单个 Tables("表A").Current("第二列") = Tables("表A").Current("第一列")
全表
DataTables("表A").SQLReplaceFor("第二列","第一列","",True)
DataTables("表A").Load()
http://www.foxtable.com/help/topics/2898.htm