GridView 单元格合并

Public Sub MergeCell(ByVal obj As GridView) Dim ColCount As Integer = obj.Columns.Count Dim RowCount As Integer = obj.Rows.Count Dim RowSpan As Integer = 1 Dim RowText As String = "" Dim NextRowText As String = "" If RowCount > 2 Then For ColIndex As Integer = 0 To ColCount - 1 '循环列 RowSpan = 1 For RowIndex As Integer = 0 To RowCount - 2 '循环第一行到最后第二行 RowText = GetCellText(obj, RowIndex, ColIndex) If Not RowText Is Nothing Then For NextRowIndex As Integer = RowIndex + 1 To RowCount - 1 '循环第二行到最后一行 NextRowText = GetCellText(obj, NextRowIndex, ColIndex) If RowText = NextRowText Then RowSpan = RowSpan + 1 'Response.Write("RowIndex:" + RowIndex.ToString + ";NextRowIndex:" + NextRowIndex.ToString + ";Text:" + RowText + "-" + NextRowText + RowSpan.ToString + "<br/>") obj.Rows(RowIndex).Cells(ColIndex).RowSpan = RowSpan obj.Rows(NextRowIndex).Cells(ColIndex).Visible = False Else RowSpan = 1 RowIndex = NextRowIndex - 1 Exit For End If Next End If Next Next End If End Sub Public Function GetCellText(ByVal obj As GridView, ByVal RowIndex As Integer, ByVal ColIndex As Integer) As String Dim ColType As String = obj.Columns(ColIndex).GetType.Name Dim RowText As String = "" Dim CellObj As Object Select Case ColType Case "BoundField" RowText = LCase(obj.Rows(RowIndex).Cells(ColIndex).Text) Case "TemplateField" Dim j As Integer = obj.Rows(RowIndex).Cells(ColIndex).Controls.Count For i As Integer = 0 To j - 1 CellObj = New Object CellObj = obj.Rows(RowIndex).Cells(ColIndex).Controls.Item(i) If Not CellObj Is Nothing Then 'Response.Write("ControlName:" + CellObj.GetType.Name + "<br/>") Select Case CellObj.GetType.Name Case "Literal" RowText = RowText + CType(CellObj, Literal).Text Case "LiteralControl" RowText = RowText + CType(CellObj, LiteralControl).Text Case "Label" RowText = RowText + CType(CellObj, Label).Text Case "HyperLink" If CType(CellObj, HyperLink).Visible = True Then RowText = RowText + CType(CellObj, HyperLink).NavigateUrl End If Case "LinkButton" If CType(CellObj, LinkButton).Visible = True Then RowText = RowText + CType(CellObj, LinkButton).CommandArgument.ToString End If Case "Button" If CType(CellObj, LinkButton).Visible = True Then RowText = RowText + CType(CellObj, Button).CommandArgument.ToString End If End Select End If Next End Select Return RowText End Function

 

此为我在项目中的一段合并单元格的代码，只实现列的合并，并没有做行的合并。

过程 MergeCell 的作用是合并单元格，参数 obj 是 欲合并单元格的GridView控件；函数GetCellText 用于取得单元格的文本；

由于Cell的Text属性只针对BoundField，其他如TemplateField用Cell的Text取不到值，所以在GetCellText函数中分别判断GridView列的类型，如果是非BoundField则循环遍历单元格中的每个控件，取得有Text属性控件（如Literal、Label、HyperLink、LinkButton等）的Text（如果空间的Visible为False就不取这个控件的Text）。备注，如何合并单元格每个用户可能有不同的要求，我的项目中像LinkButton、Button、HyperLink等控件是分别根据CommandArgument或者NavigateUrl属性来判断是否合并

 

感兴趣的朋友可以对代码进行修改使之符合自己的项目，比如在你的项目中有CheckBoxField列或者HyperLinkField等可以自己加判断