Dim nr As Row = Tables("表A").Addnewnr("第二列") = Date.TodayFor i As Integer = 1 To 4 Dim nbr As Row = Tables("表B").AddNew nbr("第一列") = nr("第一列") nbr("第二列") = nr("第二列")Next