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


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

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

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


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
关于合并的excel表格数据录入问题  发帖心情 Post By:2017/6/13 9:49:00 [只看该作者]

请教大师,像这样原来有合并的单元格,我想把合并的每个品牌1.。。。品牌n录入到数据库。
有的合并了三行,有的四行,能否实现?
图片点击可在新窗口打开查看此主题相关图片如下:产品表.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


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


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/13 10:22:00 [只看该作者]

多谢大师,我这个应该是反过来操作,应该是取消合并,然后给空格里赋值。

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


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

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

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


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/13 10:34:00 [只看该作者]

太感谢了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验2.xls


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


加好友 发短信
等级:童狐 帖子:214 积分:1386 威望:0 精华:0 注册:2017/5/13 15:13:00
  发帖心情 Post By:2017/6/13 11:00:00 [只看该作者]

太感谢了

 回到顶部