anzeigen Text, der in einem Text auf einer Reihe hängt

Question

Ich bin nicht sicher, was hier passiert:

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 

Es nehme „Approved“ zu zeigen, wenn der Wert des NETPAYTextBox größer als 20000 oder Show " Ausstehend“, wenn der Wert des NETPAYTextBox niedriger als 20000.

Answer 1

Dies sollte den Trick tun. Es stellt sicher, dass Sie eine Integer haben und wenn ja, den Vergleich zu tun und stellen Sie den Text auf das Ergebnis je ...

Dim xnet As Integer = 0 

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

Answer 2

Sie nicht den Text in einer ganzen Zahl konvertieren, die Sie vergleichen eine interger mit einem String jetzt ....

Machen NETPAYTextBox eine numericupdown

Answer 3

Haben Sie Ihren Code wie dieser

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 

Sie möchten einen Wert gesetzt ans Bevor Sie es anzeigen.

Dadurch

xnet = NETPAYTextBox.Text 

Sie xnet stellen Sie den Text NETPAYTextBox

Aber

tun

NETPAYTextBox.text = xnet.to string 

Sie auf gleich den Text des Textfelds Einstellung xnet.