在DataGrid产生空行纪录
hbzxf(阿好)
在应用程序中，我需要在一个DataGrid中每显示10条纪录后便添加一个空行，我们可以简单的修改DataTable，并且在DataGrid中的ItemDataBound 事件书写一些代码来实现，下面的文章将阐述如何做到这一点。
In one application I had the requirement to add a blank row after every 10 rows in a DataGrid rather than use paging as shown in FIGURE 1. There is no in-built way to do this with the DataGrid, but it can be easily done by modifying the DataTable that the DataGrid is bound to and by writing some code in the DataGrids ItemDataBound event. The rest of this article will describe how it is done.
添加空行到DataTable
Adding Blank Rows to the DataTable
每10条纪录添加一个空行看起来使用一个简单的循环就可以做到
To add a blank row every 10 rows seems simple enough to do using a for loop with a counter. I knew that I could not use a for each loop due to me adding new items to the collection within the loop. As it turns out, you cannot use a for loop with a counter as the upper bound of the loop is not re-evaluated on every iteration! This means that the only way to loop through the item collection is to use a while loop with a counter.
To keep track of when to add a blank row, another counter is used that is decremented. When this counter reaches 1, a new row is added to the DataTable and is then reset. At the same time, the upper bound is incremented to note the addition of the new row.
The code below shows a function that can be used to add blank rows to the first DataTable in any DataSet. As you can see, the row is not actually blank. The first column in the row is given the negative of the counter. When the DataRow is inspected in the ItemDataBound event, the fact that it is a negative value can be used to note that this should be displayed as a blank row in the DataGrid. In this case, the first column in the DataSet that was used was a Primary Key and could not be blank, and I knew that the values from the database would all be positive. When implementing this yourself you can use whatever identifier is suitable for your scenario.
Private Function addBlankLines(ByVal ds As DataSet) As DataSet
Dim dr, drBlank As DataRow
Dim count, repeatCount, upperBound As Integer
repeatCount = 10 'used to keep track of when to add a 'blank' row
upperBound = ds.Tables(0).Rows.Count
While count <= upperBound
If repeatCount = 1 Then
drBlank = ds.Tables(0).NewRow
drBlank(0) = -count
ds.Tables(0).Rows.InsertAt(drBlank, count + 1)
count += 1
upperBound += 1
repeatCount = 10
Else
repeatCount -= 1
End If
count += 1
End While
Return ds
End Function
把空行反映到DataGrid中
Rendering the Blank Rows to the DataGrid
After adding the blank rows to the DataTable, the next step is to render the blank rows in the DataGrid. To do this, a few lines in the DataGrid ItemDataBound event are required. The first thing to do is check to see if the item is an Item or Alternating item as this event fires for both the header and the footer of the DataGrid. The underlying DataRow that the ListItem is bound to can then be accessed to check the value in the first column to see if the value it contains denotes that it should be rendered as a blank row. The code below sets the text of the first cell to contain so as to make the blank row visible, and sets the BackColor to White (the rest of the rows are presented in a different color). This code can be easily adapted to allow you to render whatever format of blank row that you want.
Private Sub dgResults_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgResults.ItemDataBound
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
If CType(CType(e.Item.DataItem, DataRowView).Row.Item(0), Integer) < 0 Then
e.Item.Cells(0).Text = " "
e.Item.BackColor = System.Drawing.Color.White
End If
End If
End Sub
Alternative Use
One alternative use for the idea and code presented here is to create a running total row. As the DataTable is looped through, a running total can be kept and that value inserted into the correct column in the DataTable. Instead of rendering a blank row in the DataGrid, it can be rendered in another format.
