在DATAGRID中合并内容相同的单元格及实现行色彩交替

 

在DATAGRID中合并内容相同的单元格及实现行色彩交替

经常在网上可以看到很多在DATAGRID中合并单元格的文章，感觉蛮不错的！
可是，我发现他不能实现按合并后的单元格实现“行”色彩交替
所以，就花了一些时间，研究了一下，终于能够在DATAGRID中实现合并单元格后
又能让其实现另类的行色彩交替。

Sub SpanGrid()

        Dim i As Integer

        Dim j As Integer

        Dim intSpan As Integer

        Dim strTemp As String

        Dim flag As Boolean = True

        For i = 0 To DataGrid1.Items.Count - 1

            intSpan = 1

             strTemp = DataGrid1.Items(i).Cells(3).Text

            If flag = True Then

                DataGrid1.Items(i).BackColor = Color.LemonChiffon

                For j = i + 1 To DataGrid1.Items.Count - 1

                    If String.Compare(strTemp, DataGrid1.Items(j).Cells(3).Text) = 0 Then

                        intSpan += 1

                         DataGrid1.Items(i).Cells(3).RowSpan = intSpan

                        DataGrid1.Items(j).Cells(3).Visible = False

                         DataGrid1.Items(j).BackColor = Color.LemonChiffon

                    Else

                        Exit For

                    End If

                    flag = False

                Next

                i = j - 1

            Else

                DataGrid1.Items(i).BackColor = Color.LightYellow

                For j = i + 1 To DataGrid1.Items.Count - 1

                    If String.Compare(strTemp, DataGrid1.Items(j).Cells(3).Text) = 0 Then

                        intSpan += 1

                        DataGrid1.Items(i).Cells(3).RowSpan = intSpan

                        DataGrid1.Items(j).Cells(3).Visible = False

                         DataGrid1.Items(j).BackColor = Color.LightYellow

                    Else

                        Exit For

                    End If

                    flag = True

                Next

                i = j - 1

            End If

        Next

 

    End Sub

转载于:https://www.cnblogs.com/zhongru_tu/archive/2005/01/27/98302.html