0

当尝试在我的 vb.net 项目中打印报告时，我有一些代码来检查是否所有必填字段都已填写。如果没有填写，则会出现一个消息框来通知用户。当他们按下“确定”时，我需要程序停止执行代码以加载报告。目前，它陷入了一个无限循环，在那里它通过一个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")
4

1 回答 1

2

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

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")
于 2016-08-10T16:40:51.617 回答