Select Case & Try 语句无限循环

Question

当尝试在我的 vb.net 项目中打印报告时，我有一些代码来检查是否所有必填字段都已填写。如果没有，将出现一个消息框通知用户。当他们按下 'OK' 时，我需要程序停止执行加载报告的代码。目前，它陷入了一个无限循环，它会重复执行 Try 函数和 SELECT CASE 函数。

需要改变什么来阻止这种情况？我无法弄清楚问题是什么，以及为什么以下代码部分会一个接一个地循环

Try
    Select Case checkwhat.ToUpper
        Case "SUPPLIER"
            If cmbSuppliers.Text.Trim = "" Then
                MsgBox("Please select a supplier", MsgBoxStyle.OkOnly, "No Supplier Selected")
                Return False
                Exit Try
            End If
        Case "RB6B"
            check("SUPPLIER")
            If check("SUPPLIER") = True Then  Else Exit Sub
            createWorkTable("SUPPLIERS-TERRITORY-LS")
            regReport("rTerritoryWTableCrosstabB.rpt", "", con, Me.MdiParent, cReport, True)
            fillPms(cReport, "Sales by Territory by Supplier", "For " & cmbSuppliers.Text.Trim, "", "AOT02")

Answer 1

这不是一个完整的答案，但我至少可以解决一些问题：

Select Case checkwhat.ToUpper
    Case "SUPPLIER"
        If cmbSuppliers.Text.Trim = "" Then
            MsgBox("Please select a supplier", MsgBoxStyle.OkOnly, "No Supplier Selected")
            Return False
            Exit Try '<- Redundant
        Else
            ' Perform other checks
            Return True
        End If

所以这意味着假设您输入供应商案例，您至少可以获得两个 return 值。

现在.. 在你的 RB6B 案例中，你运行 check 函数两次。

Case "RB6B"    
    check("SUPPLIER")
    If check("SUPPLIER") = True Then

您有两个选择：

Dim supplierValid as Boolean = check("SUPPLIER")
If supplierValid = True

或者只删除第一行

If check("SUPPLIER") = True Then

好的。那么接下来：

If check("SUPPLIER") = True Then Else Exit Sub

尽量避免使用这种风格，因为它可以隐藏代码路径，您可能会在不知不觉中错过一些功能。两个选项如下所示。一是避免额外的嵌套

If check("SUPPLIER") = True Then  
    createWorkTable("SUPPLIERS-TERRITORY-LS")
    regReport("rTerritoryWTableCrosstabB.rpt", "", con, Me.MdiParent, cReport, True)
    fillPms(cReport, "Sales by Territory by Supplier", "For " & cmbSuppliers.Text.Trim, "", "AOT02")
Else 
    Exit Sub
End If

或

If check("SUPPLIER") = False Then
    Exit Sub
End If  

createWorkTable("SUPPLIERS-TERRITORY-LS")
regReport("rTerritoryWTableCrosstabB.rpt", "", con, Me.MdiParent, cReport, True)
fillPms(cReport, "Sales by Territory by Supplier", "For " & cmbSuppliers.Text.Trim, "", "AOT02")

Select Case & Try 语句无限循环

Select Case & Try statement infinite loop

vb.net

try-catch

infinite-loop

select-case