以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上一行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87775)
--  作者：douglas738888
--  发布时间：2016/7/19 11:49:00
--  上一行的问题
请教老师，以下代码想实现，如果回退=TRUE时，本行的流转勾选=FALSE 和签批完成=FALSE的同时，上一行的签批完成也为FALSE

For Each r As DataRow In DataTables("表E").DataRows
    If r("回退")=True Then
        r("签批完成") = False
        r("流转勾选") = False

    End If
Next
--  作者：大红袍
--  发布时间：2016/7/19 12:07:00
--  

上一行，可以这样查找

 

Dim r As Row = Tables("表a").Current
Dim idx As Integer = r.Index - 1
If idx >= 0 Then
    r = Tables("表a").Rows(idx)
    r("第一列") = "123"
End If
--  作者：douglas738888
--  发布时间：2016/7/19 13:24:00
--  
老师，再请教以下，如果只要任意一个回退列勾选后，其他两列 （列1 列2）的全部行内的逻辑判断都为FALSE的代码应该怎样写
--  作者：大红袍
--  发布时间：2016/7/19 14:59:00
--  

dataColChanged或者AfterEdit事件。

 

If e.DataCol.Name = "回退" Then

If e.DataRow("回退")=True Then
    For Each r As DataRow In DataTables("表E").Select("")
        r("签批完成") = False
        r("流转勾选") = False
    Next
End If

End If