1     ''' <summary>
 2     ''' 擷取出 GridView 指定資料列的欄位值集合。
 3     ''' </summary>
 4     ''' <param name="Columns">欄位集合。</param>
 5     ''' <param name="Row">資料列。</param>
 6     Private Function ExtractRowValues(ByVal Columns As DataControlFieldCollection, ByVal Row As GridViewRow)
               As OrderedDictionary
 7         Dim oFieldValues As OrderedDictionary
 8         Dim oColumn As DataControlField
 9         Dim oDictionary As OrderedDictionary
10         Dim oEntry As DictionaryEntry
11         Dim N1 As Integer
12 
13         oFieldValues = New OrderedDictionary(Columns.Count)
14         oDictionary = New OrderedDictionary()
15 
16         For N1 = 0 To Columns.Count - 1
17             oColumn = Columns.Item(N1)
18             If oColumn.Visible Then
19                 oDictionary.Clear()
20                 oColumn.ExtractValuesFromCell(oDictionary, TryCast(Row.Cells.Item(N1), DataControlFieldCell), _
                           Row.RowState, True)
21                 For Each oEntry In oDictionary
22                     oFieldValues.Item(oEntry.Key) = oEntry.Value
23                 Next
24             End If
25         Next
26 
27         Return oFieldValues
28     End Function

 1     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 2         Dim oRow As GridViewRow
 3         Dim oFieldValues As OrderedDictionary
 4 
 5         oRow = CType(CType(sender, Control).BindingContainer, GridViewRow)
 6         oFieldValues = ExtractRowValues(GridView1.Columns, oRow)
 7 
 8         '輸出 ProductName 欄位值
 9         Me.Response.Write(oFieldValues("ProductName").ToString())
10     End Sub