datagrid多表綁定
Private Sub BindGrid() '綁定數據 Dim DS As New DataSet Dim ip As New comm Dim conn As New SqlConnection conn = ip.getconn() '數據庫連接 Dim getstr As String = Request.Item("datastr").Trim '取得查詢數據的條件 Dim adapt As SqlDataAdapter = New SqlDataAdapter(getstr, conn) conn.Open() Try adapt.Fill(DS) Catch ex As Exception DS.Tables.Add(New DataTable) End Try editip.DataSource = DS.Tables(0).DefaultView conn.Close() editip.DataBind() End Sub