Question

我正在尝试设置将用于接受订单的用户表单。例如每次单击Cappuccino按钮时，它会将文本框增加一个，表示您订购的是1,2,3等。

据我所知，只有一次填充文本框。每次额外点击似乎都没有做任何事情。这是我目前的代码。我尝试将num声明为公开。我认为这可能是问题的一部分，但似乎并没有什么不同。它是一个类型转换问题，因为它是一个＆＃34;文本＆＃34;框，我试图将其视为整数？

Private Sub Capuccino_Click()

   If (Cap_qty.Value = Null) Then
    Dim num As Integer
    num = 1
    Cap_qty.Value = Cap_qty.Value + num
    ElseIf (Cap_qty.Value = IsNotNull) Then
        num = num + 1
        Cap_qty.Value = num
        'Cap_qty.Value = num + 1
        'num = Cap_qty.Value

    End If
End Sub

Answer 1

嗯，这有所不同。我看了一些告诉我使用Null，IsNotNull的地方。我能够使用以下内容，目前对我来说没有意义，我将不得不弄清楚为什么它以这种方式工作。我想有一些背景动作正在让我用叮咬做数学

Private Sub CommandButton1_Click（）

If（TextBox1.Value = vbNullString）然后

TextBox1.Value = 1 其他

TextBox1.Value = TextBox1.Value + 1 结束如果

End Sub

每按一次按钮

1 个答案: