如何在循环中重新执行代码

时间:2015-01-06 21:17:08

标签: vb.net

我有一个使用如下循环的vb.net应用程序:

While Not EOF(0)
    If value = value2 Then
        ..execute code here
    Else
        'display error
        MsgBox("Not Found")
    End If
End While

这基本上是通过文件和数据库中的匹配数据循环。如果找不到匹配项,那么MsgBox会出错,所以当显示我希望能够将必要的行添加到我的数据库中然后关闭消息框并重新运行代码而不是整个循环而只是那个失败了

1 个答案:

答案 0 :(得分:0)

也许你可以做类似

的事情
While Not EOF(0)
    If value = value2 Then
        ..execute code here
    Else
       'display error
       new_value = InputBox("Insert new value", "Not Found", value)
       'here your code, where you can try to update the table row with new value
   End If
End While

InputBox将暂停您的循环并在提交后继续。