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

Show text that depends on a number in a TextBox

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

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 时显示 "Approved",如果 NETPAYTextBox 的值小于 20000 则显示 "Pending"。

你不是必须将文本转换为整数吗,你现在正在将整数与字符串进行比较....

将 NETPAYTextBox 设为 numericupdown

这应该可以解决问题。它确保您有一个 Integer,如果有,则进行比较并根据结果设置文本...

    Dim xnet As Integer = 0

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

让你的代码像这样

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.