Reapter合并行

html文件：

<asp:Repeater ID="rptEmployee" runat="server">

            <HeaderTemplate>

                <table border="" cellpadding="" cellspacing=""><tr><td>省份</td><td>城市</td></tr>

            </HeaderTemplate>

            <ItemTemplate>

                <tr><td runat="server" id="divProName"><%#Eval("FirstName")%></td><td><%#Eval("LastName")%></td></tr>

            </ItemTemplate>

            <FooterTemplate>

                </table>

            </FooterTemplate>

        </asp:Repeater>

后台文件：

C#版：

private void BindData()

    {

        this.rptEmployee.DataSource = DBHelper.GetExecuteDataSet("select FirstName,LastName from dbo.Employees group by firstName,LastName", null);

        this.rptEmployee.DataBind();

        for (int i = this.rptEmployee.Items.Count - ; i > ; i--)

        {

            HtmlTableCell oCell_pre = this.rptEmployee.Items[i - ].FindControl("divProName") as HtmlTableCell;

            HtmlTableCell oCell = rptEmployee.Items[i].FindControl("divProName") as HtmlTableCell;

            oCell.RowSpan = oCell.RowSpan == - ?  : oCell.RowSpan;

            oCell_pre.RowSpan = oCell_pre.RowSpan == - ?  : oCell_pre.RowSpan;

            if (oCell.InnerHtml==oCell_pre.InnerHtml)

            {

                oCell.Visible = false;

                oCell_pre.RowSpan += oCell.RowSpan;

            }

        }

    }

VB版：

Private Sub BindData()

Me.rptEmployee.DataSource = DBHelper.GetExecuteDataSet("select EmployeeID, LastName, FirstName from Employees order by firstName,EmployeeID desc", Nothing)

        Me.rptEmployee.DataBind()

        For i As Integer = Me.rptEmployee.Items.Count -  To  Step -

            Dim cell_pre, cell As HtmlTableCell

            cell_pre = Me.rptEmployee.Items(i - ).FindControl("divProName") '上一行

            cell = Me.rptEmployee.Items(i).FindControl("divProName") '当前行

            If cell.RowSpan = - Then

                cell.RowSpan =  '当前行没有合并行，则当行不用合并

            Else

                cell.RowSpan = cell.RowSpan '当行的合并行，等于当前的已经合并的行数

            End If

            If cell_pre.RowSpan = - Then

                cell_pre.RowSpan =

            Else

                cell_pre.RowSpan = cell_pre.RowSpan

            End If

            If (cell_pre.InnerText = cell.InnerText) Then

                cell.Visible = False

                cell_pre.RowSpan += cell.RowSpan

            End If

        Next

    End Sub