这个?
http://www.foxtable.com/webhelp/scr/1776.htm
Dim rs = Tables("表A").GetCheckedRowsIf rs.count > 0 Then Dim r = rs(0)End If