求教各位,我想做一个按钮,按的时候会弹出输入框,输入一个数字就会添加等于数值的行。
问题是:我想每行的第二列数据都是“存货”,第三列数据都是“仓库”。如何做?
下面是我自己做的代码。添加后只有第一行正常,其他都是空白。
-------------------------------------------------------------
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
----------------------------------------------------------------
[此贴子已经被作者于2015/4/9 18:13:22编辑过]