以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于合并的excel表格数据录入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102083)

--  作者:bootes29
--  发布时间:2017/6/13 9:49:00
--  关于合并的excel表格数据录入问题
请教大师,像这样原来有合并的单元格,我想把合并的每个品牌1.。。。品牌n录入到数据库。
有的合并了三行,有的四行,能否实现?
图片点击可在新窗口打开查看此主题相关图片如下:产品表.jpg
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2017/6/13 10:07:00
--  

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

 

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

 


--  作者:bootes29
--  发布时间:2017/6/13 10:22:00
--  
多谢大师,我这个应该是反过来操作,应该是取消合并,然后给空格里赋值。
--  作者:有点色
--  发布时间:2017/6/13 10:26:00
--  
 如果有问题,请上传具体例子说明。
--  作者:bootes29
--  发布时间:2017/6/13 10:34:00
--  
太感谢了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验2.xls


--  作者:有点色
--  发布时间: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
--  发布时间:2017/6/13 11:00:00
--  
太感谢了