Question

我不确定这里出了什么问题：

Dim xapp As Integer = 20000
Dim xnet As Integer
Dim ans As String

xnet = NETPAYTextBox.Text
ans = AppstatusTextBox.Text

If (xapp < xnet) Then
    ans = "Approved"
Else
    ans = "Pending"
End If

如果NETPAYTextBox的值大于20000，则显示“已批准”;如果NETPAYTextBox的值低于20000，则显示“待定”。

Answer 1

这应该可以解决问题。它确保你有一个Integer，如果有的话，比较并根据结果设置文本......

    Dim xnet As Integer = 0

    AppstatusTextBox.Text = CStr(If(Integer.TryParse(NETPAYTextBox.Text, xnet) AndAlso 20000 < xnet, "Approved", "Pending"))

Answer 2

让你的代码像这样

Dim xapp As Integer = 20000
Dim xnet As Integer
Dim ans As String


If (xapp < xnet) Then
    ans = "Approved"
Else
    ans = "Pending"
End If

NETPAYTextBox.Text = xnet.toString
AppstatusTextBox.Text = ans

您希望在显示之前将值设置为ans。

这样做

xnet = NETPAYTextBox.Text

您将xnet设置为等于文字NETPAYTextBox

但是做了

NETPAYTextBox.text = xnet.to string

您将文本框的文本设置为等于xnet.

Answer 3

不必将文本转换为整数，您现在正在将字符串与字符串进行比较....

使NETPAYTextBox成为一个数字版本

显示取决于TextBox中的数字的文本

3 个答案: