Dim t As Table = Tables("表A")For i As Integer = t.TopPosition To t.BottomPosition t.Rows(i)("第一列") = Date.nowNext