Re: Drop down list

  •  12-01-2011, 7:52 AM

    Re: Drop down list

    Hi
     
    Its a custom dropdown list added by me. This used to work fine, but not with the latest code.
    Have pasted the code below.


    Private Sub PopulateDocTypeDropDown()

    'Create dropdown
       Dim container As CuteEditor.ToolControl = Editor1.ToolControls("customddlDocType")
       Dim ddlDocType As CuteEditor.RichDropDownList = New CuteEditor.RichDropDownList(Editor1)
        ddlDocType.CssClass = "CuteEditorDropDown"
        ddlDocType.ToolTip = "Select Document Type (DTD)"
        ddlDocType.ID = "ddlDocType"
        ddlDocType.Width = 120

        'Populate dropdown and set selected value to relevant one
       Dim iCount As Integer = 0
        ddlDocType.Items.Clear()
       Using objRdr As SqlClient.SqlDataReader = SiteDB.SiteGetDocTypeDTD()
          While objRdr.Read()
              ddlDocType.Items.Add(objRdr("Name"), objRdr("ID"))
             If objRdr("ID") = hdnDocType.Value Then
                 ddlDocType.SelectedIndex = iCount
             End If
              iCount += 1
          End While
       End Using
        container.Control.Controls.Add(ddlDocType)
    End Sub
View Complete Thread