显示取决于 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.
我不确定这里出了什么问题:
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.