获取第二行的金额列:
Dim v As Double = tables("xxx").Rows(1)("金额")
参考:
http://www.foxtable.com/help/topics/0593.htm
http://www.foxtable.com/help/topics/0443.htm