以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并单元格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60384)
--  作者：1234567
--  发布时间：2014/11/24 9:47:00
--  合并单元格
图片点击可在新窗口打开查看密码：20000109
--  作者：1234567
--  发布时间：2014/11/24 9:47:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理01.zip
--  作者：有点甜
--  发布时间：2014/11/24 9:49:00
--  

 你想说什么？ http://www.foxtable.com/help/topics/0157.htm

 
--  作者：1234567
--  发布时间：2014/11/24 9:51:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：112.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/11/24 10:14:00
--  

你的逻辑我就不看了。

 

打印之前，加入代码

 

Dim sidx As Integer = 1
For i As Integer = 2 To rt.Rows.Count - 1
    If rt.Cells(i-1, 1).Text <> rt.Cells(i, 1).Text OrElse rt.Cells(i-1, 2).Text <> rt.Cells(i, 2).Text OrElse rt.Cells(i-1, 3).Text <> rt.Cells(i, 3).Text Then
        rt.Cells(sidx, 1).SpanRows = i-sidx
        rt.Cells(sidx, 2).SpanRows = i-sidx
        rt.Cells(sidx, 3).SpanRows = i-sidx
        sidx = i
    End If
Next
--  作者：1234567
--  发布时间：2014/11/24 11:34:00
--  
ok
--  作者：1234567
--  发布时间：2014/11/24 12:22:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：33.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理01.zip
--  作者：有点甜
--  发布时间：2014/11/24 14:15:00
--  
Dim sidx As Integer = 1
For i As Integer = 2 To rt.Rows.Count
    If rt.Cells(i-1, 1).Text <> rt.Cells(i, 1).Text OrElse rt.Cells(i-1, 2).Text <> rt.Cells(i, 2).Text OrElse rt.Cells(i-1, 3).Text <> rt.Cells(i, 3).Text Then
        rt.Cells(sidx, 1).SpanRows = i-sidx
        rt.Cells(sidx, 2).SpanRows = i-sidx
        rt.Cells(sidx, 3).SpanRows = i-sidx
        sidx = i
    End If
Next