主题：增加多行并赋值代码

简单写法：

Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To vals.Length - 1
   Tables("表A").AddNew()("第一列") = vals(i)
Next

标准写法：

Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To vals.Length - 1
   Dim r As Row = Tables("表A").AddNew()
   r("第一列") = vals(i)
Next