Question

我有一些代码会检查表单上是否有任何值标记为0，每个文本框都有自己唯一的警告消息。目前，如果所有3个值均为0，则将依次出现3个警告。代码在

之下

If txt_quantity.Text = 0 Then MsgBox(Prompt:="Please enter a correct quantity") Else 
If txt_quantitysupplied.Text = 0 Then MsgBox(Prompt:="Please enter a correct quantity supplied") Else 
If txt_value.Text = 0 Then MsgBox(Prompt:="Please enter a correct value") Else

如何修改代码，以便只要显示一个消息框就会停止检查其他条件，因此理想情况下，如果有3个错误，它将显示一个警告，然后在用户下次提交时再次启动该过程。希望这是有道理的，我很难将其写成文字。

Answer 1

您需要使错误测试彼此独立并附加到错误字符串，然后在必要时显示该错误字符串。

以下伪代码说明了这一点：

string errorMessage = ""

If txt_quantity.Text = 0 Then errorMessage += "\nPlease enter a correct quantity"
If txt_quantitysupplied.Text = 0 Then errorMessage += "\nPlease enter a correct quantity supplied"
If txt_value.Text = 0 Then errorMessage += "\nPlease enter a correct value"

If errorMessage.Length > 0 Then
    MsgBox(Prompt:=errorMessage)
End If

您可能需要对错误消息进行更多格式化，以确保每个错误都显示在一行中，并且整个事情都正确排列。

首次出现后停止警告信息？

1 个答案: