Y大叔的筆記

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Me.IsPostBack Then Using conn As SqlConnection = ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString Dim da As New SqlDataAdapter("select top 10 * from Orders", conn) Dim ds As New Data.DataSet da.Fill(ds, "t1") Me.GridView1.DataSource = ds Me.GridView1.DataKeyNames = New String() {"OrderID"} Me.GridView1.DataMember = "t1" Me.GridView1.DataBind() End Using End If End Sub Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged Using conn As SqlConnection = Class1.conn_sql Dim da As New SqlDataAdapter("select * from Orders", conn) Dim ds As New Data.DataSet da.Fill(ds, "t1") da.SelectCommand.CommandText = "select * from [Order Details]" da.Fill(ds, "t2") Dim dv As DataView = ds.Tables("t1").DefaultView Dim r As DataRowView = dv(Me.GridView1.SelectedIndex) Dim dr As New DataRelation("REL", ds.Tables("t1").Columns("OrderID"), ds.Tables("t2").Columns("OrderID")) ds.Relations.Add(dr) Dim dv2 As DataView = r.CreateChildView("REL") Me.GridView2.DataSource = dv2 Me.GridView2.DataBind() End Using End Sub