GridView密技#3---GridView合併「上下列的儲存格」後，隔列變底色（AlternatingRowStyle）

2008-04-24

會把GridView左邊的第一行格子，
若上下格皆有相同的內容，自動變成 "同一格"

......這功能很多人在問，應該也有很多解答了。不過，大家交流一下也無妨。
以下是我在微軟MSDN論壇的一些討論，都有我自己改寫的程式碼。僅供大家參考。

GridView「上下列的儲存格」儲存格之後，處理「隔行變底色（AlternatingRowStyle）」的問題

http://forums.microsoft.com/MSDN-CHT/ShowPost.aspx?PostID=2608665&SiteID=14

本範例，已經收錄在書本「上集」 -- ASP.NET 專題實務

==================================================

會把GridView左邊的第一行格子，
若上下格皆有相同的內容，自動變成 "同一格"

就是底下粗體字介紹的， GridView1.Rows(第幾列).Cells(0).RowSpan = 數字，代表上下合併幾格？

請參考

Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PreRender
        '==參考資料： http://epaper.blueshop.com.tw/board/show.asp?subcde=BRD20061225110536B4G&fumcde=FUM20050124192253INM
        Dim i As Integer = 1
        Dim wkItem As GridViewRow

        For Each wkItem In GridView1.Rows

            If CInt(wkItem.RowIndex) = 0 Then
                wkItem.Cells(0).RowSpan = 1
            Else
                If wkItem.Cells(0).Text.Trim() = GridView1.Rows(CInt(wkItem.RowIndex) - i).Cells(0).Text.Trim() Then
                      GridView1.Rows(CInt(wkItem.RowIndex) - i).Cells(0).RowSpan += 1
                       i = i + 1
                       wkItem.Cells(0).Visible = False
                Else
                       GridView1.Rows(CInt(wkItem.RowIndex)).Cells(0).RowSpan = 1
                       i = 1
                End If
            End If

Next
End Sub

2008/9/2補充：

這個範例最特別的地方，就是它是執行期間（Runtime）才會完成。一開始您在VS 2008的設計畫面上，什麼都看不見。

因為GridView先天上無法合併表頭（Header）、合併儲存格.....等等，所以我們必須寫程式來產生這些特殊表頭。在程式被執行的期間，也就是 GridView的RowCreated事件 or PreRender事件裡面，這種特殊的「合併畫面」才會產生。

對讀者來說，以前都是在HTML畫面上，先把GridView設定好。而這個範例是讀者進入「執行期間」動態產生GridView細節的第一個程式，請您耐心體會。

===========================================================

2008/9/2補充：

這個範例最特別的地方，就是它是執行期間（Runtime）才會完成。一開始您在VS 2008的設計畫面上，什麼都看不見。

對讀者來說，以前都是在HTML畫面上，先把GridView設定好。而這個範例是讀者進入「執行期間」動態產生GridView細節的第一個程式，請您耐心體會。

Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PreRender
        '==參考資料： http://epaper.blueshop.com.tw/board/show.asp?subcde=BRD20061225110536B4G&fumcde=FUM20050124192253INM
        Dim i As Integer = 1
        Dim AlternatingRowStyle_i As Integer = 1

Dim mySingleRow As GridViewRow

For Each mySingleRow In GridView1.Rows

            If CInt(mySingleRow.RowIndex) = 0 Then
                mySingleRow.Cells(0).RowSpan = 1
                mySingleRow.Cells(1).RowSpan = 1
                mySingleRow.Cells(2).RowSpan = 1
                mySingleRow.Cells(3).RowSpan = 1
            Else
                If mySingleRow.Cells(0).Text.Trim() = GridView1.Rows(CInt(mySingleRow.RowIndex) - i).Cells(0).Text.Trim() Then
                    GridView1.Rows(CInt(mySingleRow.RowIndex) - i).Cells(0).RowSpan += 1
                    i = i + 1
                    mySingleRow.Cells(0).Visible = False
                Else
                    '----- 自己寫程式來處理AlternatingRowStyle的功能 -------------------
                    If (AlternatingRowStyle_i Mod 2) <> 0 Then
                        GridView1.Rows(CInt(mySingleRow.RowIndex)).Cells(0).BackColor = Drawing.Color.Orange
                    End If
                    AlternatingRowStyle_i += 1
                    '----------------------------------------------------------------

                    GridView1.Rows(CInt(mySingleRow.RowIndex)).Cells(0).RowSpan = 1
                    i = 1
                End If
            End If

End Sub

更詳細的內容，請看本書上集 ASP.NET 4.0專題實務 (VB / C#都有出版)

已經發表的相關「密技」，請看---- http://www.dotblogs.com.tw/mis2000lab/Tags/%e5%af%86%e6%8a%80/default.aspx

我將思想傳授他人，他人之所得，亦無損於我之所有；

猶如一人以我的燭火點燭，光亮與他同在，我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學，遠距教學 (Web Form 約51hr) https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學，遠距教學 (ASP.NET MVC 約75~88hr) https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

ASP.NET MVC線上課程第一天免費看 (5.5小時)

寫信給我，不要私訊 -- mis2000lab (at) yahoo.com.台灣 或 school (at) mis2000lab.net

ASP.NET遠距教學、線上課程（Web Form + MVC）。 第一天課程， "完整" 試聽。

................ facebook社團 https://www.facebook.com/mis2000lab ......................

................ YouTube (ASP.NET) 線上教學影片 https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

Blog文章 "附的範例" 無法下載，請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍（嚴格認定）。

......................................................................................................................................................