主题：关于增加多行的问题

老师，在窗口按钮中，我如何实现单击按钮，自动增加五行，并且销售单位和市场部自动列出？如图
此主题相关图片如下：qq截图20170727222253.jpg

增加5行这样写

 

Dim t As Table = Tables("表A")
For i As Integer = 1 To 5
    Dim nr As Row = t.AddNew
    nr("第一列") = 123
    nr("第二列") = 456
Next

要实现增加5行第三列，第一行的值=“A区域”，第二行的值=“B区域”，第三行的值 =“C区域”，怎么写呢？

Dim t As Table = Tables("表A")
Dim ary1() As String = {"A", "B", "C", "D", "E"}
For i As Integer = 1 To 5
    Dim nr As Row = t.AddNew
    nr("第一列") = ary1(i-1)
Next