Question

我正在使用Try Catch，我想在Form3.ListBoxes中添加Form2.ListBoxes其他类型的项目。但它在Catch异常后停止添加。所以我希望在异常被捕获后保持Loop！

我的程序获得的产品和展示相同的产品，但在另一种类型（如：我有一个品牌的T恤，但我想要另一个品牌的“相同”T恤）。

ListBox5是我在Form1中添加的数量。我加载图像要清楚。 Form2列表框按顺序排列（ListBox1，ListBox2 ...）。 Form2和Form3具有相同的设计。

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\Tabela_Precos.xlsx; Extended Properties=Excel 12.0;")
        ConnectionString.Open()

        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim da

For i = 0 To Form1.ListBox1.Items.Count - 1

        Dim str As String = Form1.ListBox1.Items(i).ToString
        Dim prod As String = str.Substring(2, 3)
        da = New OleDbDataAdapter("SELECT * FROM [Mesa$] WHERE Format([Ref], ""000000000"") like '%" & prod & "%'", ConnectionString)

        da.Fill(dt)
        Try
            ListBox1.Items.Add(dt.Rows(i).Item(0))
            ListBox2.Items.Add(dt.Rows(i).Item(1))
            ListBox3.Items.Add(dt.Rows(i).Item(3))
            ListBox4.Items.Add(dt.Rows(i).Item(5))
            ListBox5.Items.Add(Form1.ListBox5.Items(i))
            ListBox6.Items.Add(ListBox4.Items(i) * ListBox5.Items(i))
        Catch ex As Exception
        End Try
    Next

我需要Try-Catch。我正在进行查询，如果不存在DataBase中的行则停止。停止后如何继续循环？

这些是程序运行的图像（它们被编辑）：

Form1

Form2

Form3

Answer 1

当你说“在捕获后保持循环”时，你已经自己回答了这个问题。您希望循环继续，恢复或转到下一步迭代。所有这些都是VB关键字，我建议您查看For Next Statement以了解For循环的工作原理。

以下是您可以通过以下几种方法之一。

没有错误处理，只需忽略并继续：

Try
    ...
Catch ex As Exception
    Continue For
End Try

VB.net试试Catch。在捕获后保持循环

1 个答案: