Public Class WebForm2 : Inherits Page
Protected WithEvents DataGrid1 As DataGrid
Dim Shippers As String()
Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ShippersBuf As New ArrayList
Dim cn As New SqlConnection("server=.;uid=sa;pwd=;database=Northwind")
Dim cmd As New SqlCommand("select CompanyName from shippers order by shipperid")
cmd.Connection = cn
cn.Open()
Dim rd As SqlDataReader = cmd.ExecuteReader()
While (rd.Read())
ShippersBuf.Add(rd(0))
End While
rd.Close()
cn.Close()
Shippers = ShippersBuf.ToArray(GetType(String))
Dim ad As New SqlDataAdapter("select OrderID, EmployeeID, ShippedDate, ShipVia FROM Orders", cn)
Dim ds As New DataSet
ad.Fill(ds, "Orders")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "Orders"
DataGrid1.DataBind()
End Sub
Private Sub DataGrid1_ItemDataBound(sender As Object, e As DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
If e.Item.ItemType = ListItemType.Item Then
Dim list As RadioButtonList
list = CType(e.Item.Cells(3).Controls(1), RadioButtonList)
list.DataSource = Shippers
list.DataBind()
list.SelectedIndex = CInt(e.Item.DataItem(3)) - 1
End If
End Sub
End Class
|