Imports System.DataImports System.Data.SqlClientPartial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load loadParentList() 'parentsList.SelectedItemTemplate = GetTemplate("ChildList_SelectedItemTemplateEx.ascx") 'BindControls() End Sub Private Sub loadParentList() Dim dbConn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString")) Const strSQL As String = "SELECT * FROM QuizQuestions" Dim resultsDataSet As New DataSet() Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(strSQL, dbConn) myDataAdapter.Fill(resultsDataSet) parentsList.DataSource = resultsDataSet parentsList.DataBind() End Sub Protected Sub parentsList_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles parentsList.ItemCommand If (e.CommandName = "select") Then parentsList.SelectedIndex = e.Item.ItemIndex parentsList.DataBind() End If End Sub Protected Sub parentsList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles parentsList.SelectedIndexChanged Dim item As DataListItem = parentsList.SelectedItem Dim childList As DataList = item.FindControl("childList") Dim dbConn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings.Get("ConnectionString")) Dim questionId = parentsList.DataKeys(parentsList.SelectedItem.ItemIndex) Dim strSQL As String = "SELECT * FROM QuizQuestionOptions where question_id = " & questionId Dim resultsDataSet As New DataSet() Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(strSQL, dbConn) myDataAdapter.Fill(resultsDataSet) childList.DataSource = resultsDataSet childList.DataBind() End Sub Protected Sub childList_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles parentsList.ItemCommand If (e.CommandName = "select") Then Dim item As DataListItem = parentsList.SelectedItem Dim childList As DataList = item.FindControl("childList") childList.SelectedIndex = e.Item.ItemIndex childList.DataBind() End If End SubEnd Class