Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并数据，空行及下面的行不要合并进去，怎么进行控制


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

主题：合并数据，空行及下面的行不要合并进去，怎么进行控制
帅哥哟，离线，有人找我吗？
fubblyc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		合并数据，空行及下面的行不要合并进去，怎么进行控制  发帖心情 Post By：2019/1/4 11:56:00 [只看该作者]

        Dim Book As New XLS.Book(fl)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim s As String
        For n As Integer = 1 To Sheet.Rows.Count-1
            Dim r As Row = Tables("微信支付宝明细导入").AddNew()
            For i As Integer = 0 To ColsCount - 1
                Dim cname As String = sheet(0, i).text
                If t.Cols.Contains(cname) Then
                    s = sheet(n, i).Text
                    r(cname) = s
                End If
            Next
            If s = "" Then
                Exit For
            End If
        Next
甜老师，合并数据，空行及下面的行不要合并进去，怎么进行控制呢。。。

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190104115517.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/4 12:13:00 [只看该作者]

换一种思路，如果 sheet(n, 0).Text 的值是空字符串或者等于交易时间，那就退出循环或者return呗。

 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/1/4 14:04:00 [只看该作者]

甜老师，我这样搞定了：
        Dim Book As New XLS.Book(fl)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim s As String
        For n As Integer = 1 To Sheet.Rows.Count-1
            If sheet(n, 0).Text = "" Then
                Return ""
            End If
            Dim r As Row = Tables("微信支付宝明细导入").AddNew()
            For i As Integer = 0 To ColsCount - 1
                Dim cname As String = sheet(0, i).text
                If t.Cols.Contains(cname) Then
                    s = sheet(n, i).Text
                    r(cname) = s                    
                End If
            Next
        Next
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/1/4 14:19:00 [只看该作者]

然后要只导入下面的，用这样：
            Dim Book As New XLS.Book(fl)
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Dim s As String
            Dim x As Integer
            For n As Integer = 1 To Sheet.Rows.Count-1
                If sheet(n, 0).Text = "交易时间" Then
                    x = n
                End If
            Next
            For xn As Integer = x To Sheet.Rows.Count-1
                Dim r As Row = Tables("微信支付宝明细导入").AddNew()
                For i As Integer = 0 To ColsCount - 1
                    Dim cname As String = sheet(x, i).text
                    If t.Cols.Contains(cname) Then
                        s = sheet(xn+1, i).Text
                        r(cname) = s
                    End If
                Next
            Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08008 秒, 4 次数据查询