以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于数据填充的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68846)
--  作者：bluev
--  发布时间：2015/5/26 11:01:00
--  关于数据填充的问题
   姓名
1 张三
2
3
4王四
5
6

如何把 2，3行 空白的姓名列 填充成 第一行的  张三？   5,6行 填充成 王四  以此类推 把姓名列 全部填充？？
--  作者：大红袍
--  发布时间：2015/5/26 11:05:00
--  
Dim pvalue As String = ""
For Each r As Row In Tables("表A").Rows
    If r.IsNull("第一列") Then
        r("第一列") = pvalue
    Else
        pvalue = r("第一列")
    End If
Next