http://www.foxtable.com/webhelp/scr/0447.htm
dim t as table = tables("表A")msgbox(t.rows(t.Position)(t.ColSel))