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

因此，这意味着您至少可以获得两个返回值，假设您输入了供应商案例。

现在.。在您的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")