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