以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]第二列当前行等于第一列上一行的值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185072)

--  作者:miaoqingqing
--  发布时间:2023/2/2 17:00:00
--  [求助]第二列当前行等于第一列上一行的值
\'\'\'\'\'\'\'\'\'
If e.DataCol.Name = "锁定"  Then  
    Dim tt1 As Table = Tables("表A")  \'Tables行筛选第二列值会变化,求助第二列值不变(根据datatable行生成)
    For i As Integer = 1 To tt1.Rows.Count - 1  
            If e.DataRow.IsNull("第一列") = False  Then 
                tt1.Rows(i)("第二列") = tt1.Rows(i-1)("第一列")
            Else
                tt1.Rows(i)("第二列") = Nothing
            End If
        End If
    Next
End If



图片点击可在新窗口打开查看此主题相关图片如下:第二列当前行等于第一列上一行的值.png
图片点击可在新窗口打开查看

上图举例,3个红色勾选行后,第二列值变化了不对,求助第二列值不变(根据datatable行生成)
[此贴子已经被作者于2023/2/2 17:01:09编辑过]

--  作者:有点蓝
--  发布时间:2023/2/2 17:16:00
--  
理解一下流水账的逻辑:http://www.foxtable.com/webhelp/topics/2136.htm