Dear Sir,
There is user requirement to using combobox with checkbox for mulit-selection of code. If "top 10" was removed the combobox didn't show any record. After check that, there are almost 7xxx records, do you mean that the combobox with checkbox with max. limitation of the record? If yes, what is the max. number of the records?
There is the code:
.aspx
<telerik:RadComboBox runat="server" ID="cboSupplier"
CheckBoxes="true" EnableCheckAllItemsCheckBox="true"
AutoPostBack="false" CssClass="comboBoxStyle"
DataTextField="SUPCD"
EnableLoadOnDemand="True" Height="200px" Width="95%">
</telerik:RadComboBox>
.vb
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
LoadSupplier()
end if
End Sub
Protected Sub LoadSupplier()
cboSupplier.Items.Clear()
Dim dbConn As New SqlConnection(WebConfigurationManager.ConnectionStrings("PDBConnectionString").ConnectionString)
Dim adapter As New SqlDataAdapter("SELECT top 10 RTRIM(MSUP_SUPCD) MSUP_SUPCD,RTRIM(MSUP_SUPNM) MSUP_SUPNM FROM MSUP_TBL Group by RTRIM(MSUP_SUPCD) ,RTRIM(MSUP_SUPNM) ORDER By MSUP_SUPCD ", dbConn)
Dim dt As New DataTable()
adapter.Fill(dt)
cboSupplier.DataTextField = "MSUP_SUPCD"
cboSupplier.DataValueField = "MSUP_SUPCD"
cboSupplier.DataSource = dt
cboSupplier.DataBind()
' Insert the first item.
cboSupplier.Items.Insert(0, New RadComboBoxItem("", ""))
End Sub
There is user requirement to using combobox with checkbox for mulit-selection of code. If "top 10" was removed the combobox didn't show any record. After check that, there are almost 7xxx records, do you mean that the combobox with checkbox with max. limitation of the record? If yes, what is the max. number of the records?
There is the code:
.aspx
<telerik:RadComboBox runat="server" ID="cboSupplier"
CheckBoxes="true" EnableCheckAllItemsCheckBox="true"
AutoPostBack="false" CssClass="comboBoxStyle"
DataTextField="SUPCD"
EnableLoadOnDemand="True" Height="200px" Width="95%">
</telerik:RadComboBox>
.vb
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
LoadSupplier()
end if
End Sub
Protected Sub LoadSupplier()
cboSupplier.Items.Clear()
Dim dbConn As New SqlConnection(WebConfigurationManager.ConnectionStrings("PDBConnectionString").ConnectionString)
Dim adapter As New SqlDataAdapter("SELECT top 10 RTRIM(MSUP_SUPCD) MSUP_SUPCD,RTRIM(MSUP_SUPNM) MSUP_SUPNM FROM MSUP_TBL Group by RTRIM(MSUP_SUPCD) ,RTRIM(MSUP_SUPNM) ORDER By MSUP_SUPCD ", dbConn)
Dim dt As New DataTable()
adapter.Fill(dt)
cboSupplier.DataTextField = "MSUP_SUPCD"
cboSupplier.DataValueField = "MSUP_SUPCD"
cboSupplier.DataSource = dt
cboSupplier.DataBind()
' Insert the first item.
cboSupplier.Items.Insert(0, New RadComboBoxItem("", ""))
End Sub