Foxtable(狐表)用户栏目专家坐堂 → 关于合并的excel表格数据录入问题


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

主题:关于合并的excel表格数据录入问题

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 10:07:00 [显示全部帖子]

 直接合并不就行了?合并后处理一下数据

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101016&skin=0

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 10:26:00 [显示全部帖子]

 如果有问题,请上传具体例子说明。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 10:40:00 [显示全部帖子]

 合并数据后,执行代码

 

Dim cs() As String = {"板块","编号","地接名称"}
Dim t As Table = CurrentTable
For Each c As String In cs
    For i As Integer = 1 To t.Rows.count-1
        If t.Rows(i).IsNull(c) Then
            t.Rows(i)(c) = t.Rows(i-1)(c)
        End If
    Next
Next


 回到顶部