Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何自动填充上一行的列数据


  共有2349人关注过本帖树形打印复制链接

主题：如何自动填充上一行的列数据
帅哥哟，离线，有人找我吗？
snaker114
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：624 威望：0 精华：0 注册：2018/4/8 14:05:00 		如何自动填充上一行的列数据  发帖心情 Post By：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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107186 积分：545179 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：624 威望：0 精华：0 注册：2018/4/8 14:05:00 		  发帖心情 Post By：2018/5/8 22:37:00 [只看该作者]

谢谢老师，完美极了，34511条记录，秒级搞定！厉害!感谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询