Dim idx As Integer = val(Tables("表A").Rows(0)("第一列"))msgbox(idx)For i As Integer = 1 To 10 Dim nr As Row = Tables("表A").addnew idx += 1 nr("第一列") = idxNext