Hi, I'm using RadComboBox ("RadControls for ASPNET AJAX Q1 2008") with load on demand. I seem to have it half-working. It will successfully display "1-10 of 8836", and when I type in the first few letters of any of the first ten items in the list it will successfully highlight that item which matches. The problem is that when I type in letters which should match items which are not in the first ten it will not find it; it will say "Loading..." for a few seconds but then "Loading..." will disappear and no items will be selected even though I have confirmed that what I'm searching for should be in the list based on what I'm seeing in the database.
My code is below, most of which I copied from your website:
http://www.telerik.com/DEMOS/ASPNET/Prometheus/ComboBox/Examples/PopulatingWithData/AutoCompleteSql/DefaultVB.aspx
<asp:GridView Width=100% ID="gvLines" runat=server AutoGenerateColumns=false>
<HeaderStyle CssClass=dgheader/>
<RowStyle CssClass=dgrows />
<Alternatingrowstyle CssClass=dgalternating />
<Columns>
<asp:TemplateField HeaderText="Customer">
<ItemTemplate>
<telerik:RadComboBox
ID="RadComboBox1" runat="server" Width="250px" Height="200px"
AllowCustomText="True" ShowToggleImage="True" ShowMoreResultsBox="true"
EnableLoadOnDemand="True" MarkFirstMatch="True" OnItemsRequested="RadComboBox1_ItemsRequested" EnableVirtualScrolling="true">
</telerik:RadComboBox>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
-------------------------------------
Protected Sub RadComboBox1_ItemsRequested(ByVal o As Object, ByVal e As Telerik.Web.UI.RadComboBoxItemsRequestedEventArgs)
Dim sql As String = "SELECT CUSTOMER = RTRIM(CUST_NO) + ' - ' + CUST_NAME from DATA_POOL.DBO.Customer (NOLOCK) "
Dim adapter As New SqlDataAdapter(sql, conn)
Dim data As New DataTable()
adapter.Fill(data)
Dim rcb As RadComboBox = CType(o, RadComboBox)
Try
Dim itemsPerRequest As Integer = 10
Dim itemOffset As Integer = e.NumberOfItems
Dim endOffset As Integer = itemOffset + itemsPerRequest
If endOffset > data.Rows.Count Then
endOffset = data.Rows.Count
End If
If endOffset = data.Rows.Count Then
e.EndOfItems = True
End If
Dim i As Integer = itemOffset
While i < endOffset
rcb.Items.Add(New RadComboBoxItem(data.Rows(i)("CUSTOMER").ToString(), data.Rows(i)("CUSTOMER").ToString()))
i = i + 1
End While
If data.Rows.Count > 0 Then
e.Message = [String].Format("Items <b>1</b>-<b>{0}</b> out of <b>{1}</b>", endOffset.ToString(), data.Rows.Count.ToString())
Else
e.Message = "No matches"
End If
Catch
e.Message = "No matches"
End Try
End Sub