显示依赖于TextBox中的数字的文本

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成为一个数字下降