ASP.NET DataTable / DataView ( Filtering / Sorting )

 

   (必要部份)
 
   Private Sub Get_Data()
 
      Dim DataTable1 As New DataTable
      Dim DataColumn1 As DataColumn
      Dim DataRow1 As DataRow
 
      DataColumn1 = New DataColumn
      DataColumn1.DataType = System.Type.GetType("System.String")
      DataColumn1.ColumnName = "Player_Name"
      DataTable1.Columns.Add(DataColumn1)
 
      DataColumn1 = New DataColumn
      DataColumn1.DataType = System.Type.GetType("System.String")
      DataColumn1.ColumnName = "Team_Name"
      DataTable1.Columns.Add(DataColumn1)
 
      Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Soccer; Integrated Security=SSPI"
      Dim con1 As SqlConnection = New SqlConnection(connectionString1)
      con1.Open()
 
      Dim SqlString1 As String = "EXEC ChkPlayer"
      Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1)
      Dim dr As SqlDataReader = cmd1.ExecuteReader()
 
      If dr.HasRows Then
         Do While dr.Read
            DataRow1 = DataTable1.NewRow()
            DataRow1("Player_Name") = dr.Item("Player_Name").ToString.Trim()
            DataRow1("Team_Name") = dr.Item("Team_Name").ToString.Trim()
            DataTable1.Rows.Add(DataRow1)
         Loop
      End If
 
      dr.Close()
      con1.Close()
      con1.Dispose()
 
      Dim DataView1 As New DataView(DataTable1)
      DataView1.RowFilter = "Team_Name = 'Chelsea'"
      DataView1.Sort = "Player_Name DESC"
 
      GridView1.DataSource = DataTable1
      GridView1.DataBind()
 
      GridView2.DataSource = DataView1
      GridView2.DataBind()
 
   End Sub