以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  前一行为FALSE  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193525)
--  作者：1234567
--  发布时间：2024/9/23 12:40:00
--  前一行为FALSE
  r2("当前任务") = True
    If r2.Index > 0 Then
       Tables("生产管理_Table02").Rows(r2.Index - 1)("当前任务") = False\'      错哪里了？
    End If
--  作者：有点蓝
--  发布时间：2024/9/23 13:29:00
--  
没有问题的。提示什么错误？
--  作者：1234567
--  发布时间：2024/9/23 14:00:00
--  

没有错误提示，就是上一行没有变成False。
--  作者：有点蓝
--  发布时间：2024/9/23 14:06:00
--  
代码在什么事件？完整代码发上来
--  作者：1234567
--  发布时间：2024/9/23 14:25:00
--  

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
--  作者：有点蓝
--  发布时间：2024/9/23 14:34:00
--  
代码没有问题，请上传实例测试
--  作者：1234567
--  发布时间：2024/9/23 15:30:00
--  

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

如何把新增行的前一行r2.Index - 1改为新增行以前的所有行？
--  作者：有点蓝
--  发布时间：2024/9/23 15:50:00
--  

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