會把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的設計畫面上,什麼都看不見。
因為GridView先天上無法合併表頭(Header)、合併儲存格.....等等,所以我們必須寫程式來產生這些特殊表頭。在程式被執行的期間,也就是 GridView的RowCreated事件 or PreRender事件裡面,這種特殊的「合併畫面」才會產生。
對讀者來說,以前都是在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
Next
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 約 140hr) https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab
寫信給我,不要私訊 -- mis2000lab (at) yahoo.com.tw 或 school (at) mis2000lab.net
(1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A
(2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I
[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm 。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b
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
請看我們的「售後服務」範圍(嚴格認定)。
......................................................................................................................................................
ASP.NET MVC => .NET Core MVC 線上教學 ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽
[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講 事先錄好的影片,並非上課側錄! 觀看時,有如「一對一」面對面講課。