if+p+then+goto+loop2

很抱歉，根据提供的引用内容，无法回答您的问题。但是，我可以为您介绍一下PL/SQL中的条件语句和循环语句。

PL/SQL中的条件语句有IF-THEN、IF-THEN-ELSE和IF-THEN-ELSIF结构。其中，IF-THEN结构用于在满足条件时执行一组语句，IF-THEN-ELSE结构用于在满足条件时执行一组语句，否则执行另一组语句，IF-THEN-ELSIF结构用于在满足多个条件时执行不同的语句块。

PL/SQL中的循环语句有WHILE LOOP和FOR LOOP结构。其中，WHILE LOOP结构用于在满足条件时重复执行一组语句，FOR LOOP结构用于在指定范围内重复执行一组语句。

如果您需要在循环中跳转到另一个循环，可以使用循环控制语句，例如CONTINUE和EXIT。CONTINUE语句用于跳过当前循环中的剩余语句并继续下一次循环，而EXIT语句用于完全退出循环。

相关问题

On Error GoTo skip2 Cells.Find(What:="期货持仓汇总", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate If Not ActiveCell Is Nothing Then ActiveCell.Activate i = Selection.Row + 2 i0 = i Do While Range("A" & i) <> "合计" i = i + 1 Loop i = i - 1 Range("A" & i0, "J" & i).Copy Workbooks("场内部期权每日结算.xlsm").Activate Sheets("当日持仓").Select Range("I2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If '贴期权持仓 skip2: Workbooks("011381506002_" & CStr(Format(now, "yyyy-mm-dd")) & ".xls").Activate 为什么这段代码中on error goto skip2失效

在你提供的代码中，`On Error GoTo skip2` 失效的原因可能是因为 `Find` 方法引发了一个无法处理的错误。当 `Find` 方法找不到指定的值时，它会引发一个运行时错误，并且会中断代码的执行，导致 `On Error` 语句不再生效。

为了避免这种情况，你可以使用 `Application.Match` 函数来替代 `Cells.Find` 方法。`Match` 函数在找不到指定的值时会返回错误值而不是引发错误，因此可以通过检查返回值来判断是否找到了目标值。

以下是一个修改后的示例代码：

On Error Resume Next
Dim targetCell As Range
Set targetCell = Cells.Find(What:="期货持仓汇总", LookIn:=xlFormulas, LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
                            SearchFormat:=False)

On Error GoTo 0 ' 重新启用错误处理

If Not targetCell Is Nothing Then
    targetCell.Activate
    i = targetCell.Row + 2
    i0 = i
    Do While Range("A" & i) <> "合计"
        i = i + 1
    Loop
    i = i - 1

    Range("A" & i0, "J" & i).Copy
    Workbooks("场内部期权每日结算.xlsm").Activate
    Sheets("当日持仓").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

' 贴期权持仓

Workbooks("011381506002_" & CStr(Format(Now, "yyyy-mm-dd")) & ".xls").Activate

在上面的代码中，我们使用 `Set targetCell = Cells.Find(...)` 语句来查找目标单元格，并将其赋值给 `targetCell` 变量。然后，我们通过检查 `targetCell` 是否为 `Nothing` 来判断是否找到了目标值。这样可以避免 `Find` 方法引发的错误，从而使 `On Error` 语句生效。

请注意，在使用 `On Error Resume Next` 时要谨慎，确保仅跳过预期的特定错误，并在合适的地方进行错误处理。

oracle goto

在Oracle数据库的PL/SQL语言中，GOTO是一种顺序控制语句，可以用来在循环中跳转至指定的标记处。使用GOTO类似于使用continue语句。下面是一个示例，展示了如何在循环中使用GOTO：

create or replace procedure test111 is
  i integer;
begin
  i := 2;
  loop
    <<next_step>>
    i := i * 2;
    if i > 100 then
      exit;
    end if;
    if i > 50 then
      goto next_step;
    end if;
    dbms_output.put_line(i);
  end loop;
end;

在这个示例中，循环会继续执行直到i大于100。当i大于50时，会使用GOTO语句跳转至标记"next_step"处，然后再次执行循环。通过这种方式，可以控制循环的执行流程。执行上述过程后，会输出以下结果：4、8、16、32。<span class="em">1</span><span class="em">2</span><span class="em">3</span>
#### 引用[.reference_title]
- *1* *2* *3* [Oracle的学习心得和知识总结（八）|Oracle数据库PL/SQL语言顺序控制语句之GOTO和NULL语句技术详解](https://blog.csdn.net/weixin_43949535/article/details/128110250)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_1"}}] [.reference_item style="max-width: 100%"]
[ .reference_list ]