主题：分组填充表

Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
For i As Integer = 0 To t1.Rows.count-1
    Dim nr1 As Row = t2.addnew
    nr1("第一列") = t1.Rows(i)("第一列")
    nr1("第三列") = t1.Rows(i)("第三列")
    If i Mod 5 = 4 Then
        For j As Integer = i-4 To i Step 1
            Dim nr2 As Row = t2.addnew
            nr2("第一列") = t1.Rows(j)("第二列")
            nr2("第三列") = t1.Rows(j)("第三列")
        Next
    End If
Next

不明白你的意思，请上传具体项目，说明你要做到什么效果。