注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

网易考拉推荐

009 asp.net跨行跨列合并单元格(vb.net)  

2011-12-05 16:48:28|  分类: 我的实验室 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

http://www.cnblogs.com/heros/archive/2009/07/12/1522053.html

     ''' <summary>
    ''' 行合并
    ''' </summary>
    ''' <param name="gv">GRIDVIEW控件</param>
    ''' <param name="cols">需合并行的列索引</param>
    ''' <remarks></remarks>
    Public Shared Sub GridViewRowJoin(ByVal gv As GridView, ByVal cols() As Integer)
        Dim rowindex(cols.Length) As Integer
        Dim cells(cols.Length) As TableCell
        For i As Integer = 1 To gv.Rows.Count - 1
            Dim rw As TableRow = gv.Rows(i)
            For j As Integer = 0 To cols.Length - 1
                cells(j) = rw.Cells(cols(j))
                If cells(j).Text.Equals(gv.Rows(i - 1).Cells(cols(j)).Text) Then
                    Dim spanCell As TableCell = gv.Rows(rowindex(j)).Cells(cols(j))
                    If spanCell.RowSpan = 0 Then
                        spanCell.RowSpan = spanCell.RowSpan + 1
                    End If
                    spanCell.RowSpan = spanCell.RowSpan + 1
                    cells(j).Visible = False
                Else
                    rowindex(j) = i
                End If
            Next
        Next
    End Sub

    ''' <summary>
    ''' GRIDVIEW标题列合并
    ''' </summary>
    ''' <param name="gv">GRIDVIEW控件</param>
    ''' <param name="Span">标题列合并组合数</param>
    ''' <param name="HText">最终生成的标题</param>
    ''' <remarks></remarks>
    Public Shared Sub GridViewHeadJoin(ByVal gv As GridView, ByVal Span() As Integer, ByVal HText As String())
        Dim RowHeader As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
        Dim cell As TableHeaderCell

        For i As Integer = 0 To HText.Length - 1
            cell = New TableHeaderCell
            cell.ColumnSpan = span(i)
            If span(i) = 1 Then
                cell.RowSpan = 2
            End If
            cell.Text = HText(i)
            'cell.Attributes.Add("style", "white-space:nowrap;")
            RowHeader.Cells.Add(cell)
        Next
        gv.Controls(0).Controls.AddAt(0, RowHeader)
    End Sub

  评论这张
 
阅读(985)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017