1、表2添加到foxtable了没有?
2、参考代码
Dim t = Tables("表2")For i As Integer = 0 To t.rows.count-1 Step 4 Dim r1 = t.rows(i) Dim r2 = t.rows(i+1) Dim r3 = t.rows(i+2) Dim r4 = t.rows(i+3) msgbox(r1("第一列"))Next