主题：前一行为FALSE

  r2("当前任务") = True
    If r2.Index > 0 Then
       Tables("生产管理_Table02").Rows(r2.Index - 1)("当前任务") = False'      错哪里了？
    End If

没有问题的。提示什么错误？

没有错误提示，就是上一行没有变成False。

代码在什么事件？完整代码发上来

Button 控件Click事件

If Forms ("生产管理").opened And Forms ("过程记录").opened Then
    Dim r As Row = Tables("过程记录_Table10").AddNew()
    Dim r2 As Row = Tables("生产管理_Table02").AddNew()
    Dim r1 As Row = Tables("生产管理_Table01").Current
    If r1 IsNot Nothing Then 
        r2("当前任务") = True
        If r2.Index > 0 Then
            Tables("生产管理_Table02").Rows(r2.Index - 1)("当前任务") = False
        End If
    End If
End If

代码没有问题，请上传实例测试

问题找到了，是因为后面加了排序的代码。

如何把新增行的前一行r2.Index - 1改为新增行以前的所有行？

for k as integer = r2.Index - 1 to 0 step -1