以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何自动填充上一行的列数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118687)
--  作者：snaker114
--  发布时间：2018/5/8 22:03:00
--  如何自动填充上一行的列数据
老师，如何用代码实现？


序号单据编号
1SEORD00014338遇到有数据就跳过
2SEORD00014034遇到有数据就跳过
3左侧空白如何填充为上一行的数据：SEORD00014034
4SEORD00014034
5SEORD00014193遇到有数据就跳过
6左侧空白如何填充为上一行的数据：SEORD00014193
7左侧空白如何填充为上一行的数据：SEORD00014193
8左侧空白如何填充为上一行的数据：SEORD00014193
9左侧空白如何填充为上一行的数据：SEORD00014193
10DH.2017010300001遇到有数据就跳过
11左侧空白如何填充为上一行的数据：DH.2017010300001
12DH.20170103.00002遇到有数据就跳过
13DH.20170103.00003遇到有数据就跳过
14左侧空白如何填充为上一行的数据：DH.20170103.00003
15左侧空白如何填充为上一行的数据：DH.20170103.00003
16左侧空白如何填充为上一行的数据：DH.20170103.00003
--  作者：有点蓝
--  发布时间：2018/5/8 22:18:00
--  
For i As Integer = 1 To Tables("表A").Rows.Count - 1
    If Tables("表A").Rows(i).IsNull("单据编号") then
        Tables("表A").Rows(i)("单据编号") = Tables("表A").Rows(i-1)("单据编号")
    End If
Next
[此贴子已经被作者于2018/5/8 22:19:16编辑过]
--  作者：snaker114
--  发布时间：2018/5/8 22:37:00
--  
谢谢老师，完美极了，34511条记录，秒级搞定！厉害!感谢！