Imports System.Data
Imports System.Data.SqlClient

Partial 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 Sub
End Class