Показать текст, который зависит от числа в 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

Предполагается, что будет показано "Approved", если значение NETPAYTextBox больше 20000, или "Pending", если значение 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 числовым вниз