以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请问，我想用代码填充某一列数据，如果是空值就自动填入上一行单元格的值。代码怎么写啊？（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86864)

--  作者：ericotaku --  发布时间：2016/6/28 9:03:00 --  请问，我想用代码填充某一列数据，如果是空值就自动填入上一行单元格的值。代码怎么写啊？（已解决） 我写的不完整，请老师帮帮忙，谢谢 比如{表A}中的[第一列] ，我想用代码把数据填完整，最终效果像[第二列]那样 我是这么写的，应该是不对的，怎么写才对呢？ Dim r1,r0 As Row r1 = Tables("表A").rows(0) r0 = Tables("表A").rows(r1.index-1) If r1("第一列") Is Nothing Then     r1("第一列") = r0("第一列") End If     r1 = Tables("表A").rows(r1.index+1) [此贴子已经被作者于2016/6/28 9:48:30编辑过]

--  作者：大红袍 --  发布时间：2016/6/28 9:29:00 --   Dim p As String = Nothing For Each r As Row In Tables("表B").Rows     If r("第一列") > "" Then         p = r("第一列")     Else         r("第一列") = p     End If Next