求教各位，我想做一个按钮，按的时候会弹出输入框，输入一个数字就会添加等于数值的行。

问题是：我想每行的第二列数据都是“存货”，第三列数据都是“仓库”。如何做？

下面是我自己做的代码。添加后只有第一行正常，其他都是空白。

-------------------------------------------------------------

Dim Val As String
If InputValue(Val, "输入数量", "请输入要添加的数量") Then
        If Val <> "" Then
Dim r As Row = Tables("a表").AddNew(Val)
    r("第二列") = "存货"

r("第三列") = "仓库"

        Else
        msgbox("没有数量,不进行添加")
        End If
End If

----------------------------------------------------------------

Dim Val As Integer
If InputValue(Val, "输入数量", "请输入要添加的数量") Then
    If Val <> "" Then
        For i As Integer = 1 To val
            Dim r As Row = Tables("a表").AddNew()
            r("第二列") = "存货"
            r("第三列") = "仓库"
        Next
    Else
        msgbox("没有数量,不进行添加")
    End If
End If