1、参考
http://www.foxtable.com/webhelp/scr/1145.htm
2、判断代码,参考
If Tables("表A").Current("第一列") = "A" Then
ElseIf Tables("表A").Current("第一列") = "B" Then
End If