以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自动取上一行的值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135185)

--  作者:15666282205
--  发布时间:2019/5/20 11:27:00
--  自动取上一行的值
老师,第一行的第一列有值,第二行第一列如果是空值就取上一行的值,往下的行一直判断填充,怎么实现?
--  作者:有点甜
--  发布时间:2019/5/20 11:37:00
--  
Dim pr As Row = Nothing
For Each r As Row In Tables("表A").Rows
    If pr IsNot Nothing Then
        If r("第一列") = Nothing Then
            r("第一列") = pr("第一列")
        End If
    End If
    pr = r
Next

--  作者:15666282205
--  发布时间:2019/5/20 11:51:00
--  成功了,谢谢
成功了,谢谢老师!