Assigning dynamic store to a dynamic combobox.

[QualityCode]

Hi Daniil,

Thanks for the response.
First option works, but second one did not work.
Here is Code

Public Sub FillDropDown(ByRef DropDownID As ComboBox, ByVal DataDisplayField As String, ByVal DataValueField As String, ByVal strSQLQuery As String)

		''This will be Query to database to get data from
		'Dim dt As DataTable = SomeObject.GetDataTable(strSQLQuery)

		''Creating temporary data table
		Dim dt As New DataTable
		dt.Columns.Add(DataDisplayField)
		dt.Columns.Add(DataValueField)

		Dim row As DataRow = Nothing

		For i As Integer = 1 To 10
			row = dt.NewRow
			row(DataDisplayField) = "ReportName - " & i.ToString()
			row(DataValueField) = i
			dt.Rows.Add(row)
		Next

		Dim cmbStore As New Ext.Net.Store
		cmbStore.ID = "comboStore"

		Dim jReader As New JsonReader()
		jReader.Fields.Add(DataDisplayField)
		jReader.Fields.Add(DataValueField)

		cmbStore.Reader.Add(jReader)
		cmbStore.DataSource = dt

		DropDownID.Store.Add(cmbStore)
		DropDownID.DisplayField = DataDisplayField
		DropDownID.ValueField = DataValueField

		cmbStore.DataBind()

	End Sub

Can you please guide.

Thanks

[Daniil]

First option works, but second one did not work.

Public Sub FillDropDown(ByRef DropDownID As ComboBox, ByVal DataDisplayField As String, ByVal DataValueField As String, ByVal strSQLQuery As String)

        ''This will be Query to database to get data from
        'Dim dt As DataTable = SomeObject.GetDataTable(strSQLQuery)

        ''Creating temporary data table
        Dim dt As New DataTable
        dt.Columns.Add(DataDisplayField)
        dt.Columns.Add(DataValueField)

        Dim row As DataRow = Nothing

        For i As Integer = 1 To 10
            row = dt.NewRow
            row(DataDisplayField) = "ReportName - " & i.ToString()
            row(DataValueField) = i
            dt.Rows.Add(row)
        Next

        Dim cmbStore As New Ext.Net.Store
        cmbStore.ID = "comboStore"

        Dim jReader As New JsonReader()
        jReader.Fields.Add(DataDisplayField)
        jReader.Fields.Add(DataValueField)

        cmbStore.Reader.Add(jReader)
        cmbStore.DataSource = dt

        DropDownID.Store.Add(cmbStore)
        DropDownID.DisplayField = DataDisplayField
        DropDownID.ValueField = DataValueField

        cmbStore.DataBind()

    End Sub

Can you please guide.

Thanks

Hi,

Well, I have tested the code that you provided. It appears to be working fine.