This is a migrated thread and some comments may be shown as answers.

header combobox

1 Answer 98 Views

ComboBox

This is a migrated thread and some comments may be shown as answers.

Fabio Cirillo asked on 02 Jul 2013, 07:44 AM

you can create a combobox columns with header but load the data with a webservice?

I load the record in combobox with this code:

<WebMethod()> _

Public Function GetLuogoNome(ByVal context As RadComboBoxContext) As RadComboBoxData

Dim data As DataTable = GetCittadinanza(context.Text)

Dim comboData As New RadComboBoxData()

Dim itemOffset As Integer = context.NumberOfItems

Dim endOffset As Integer = Math.Min(itemOffset + ItemsTipoGruppoPerRequest, data.Rows.Count)

comboData.EndOfItems = endOffset = data.Rows.Count

Dim result As New List(Of RadComboBoxItemData)(endOffset - itemOffset)

For i As Integer = itemOffset To endOffset - 1

Dim itemData As New RadComboBoxItemData()

itemData.Text = data.Rows(i)("descrizione").ToString()

itemData.Value = data.Rows(i)("idrecord").ToString()

result.Add(itemData)

Next

REM ottengo il messaggio dei record selezionati

comboData.Message = GetStatusMessage(endOffset, data.Rows.Count)

comboData.Items = result.ToArray()

Return comboData

End Function

Private Function GetLuogo(ByVal text As String) As DataTable

REM SELECT * FROM Tab_categorie WHERE CONTAINS(descrizione, @text)

REM per indici full text

Dim conString = ConfigurationManager.ConnectionStrings("Receptionstring")

Dim strConnString As String = conString.ConnectionString

Using scope As New Transactions.TransactionScope

Using db As New SqlConnection(strConnString)

db.Open()

Using sqlcmd As New SqlCommand("get_cittadinanza", db)

sqlcmd.CommandType = CommandType.StoredProcedure

sqlcmd.Parameters.AddWithValue("@textsearch", SqlDbType.VarChar).Value = text

Dim adapter As New SqlDataAdapter(sqlcmd)

Dim data As New DataTable()

adapter.Fill(data)

Return data

End Using

scope.Complete()

End Using

1 Answer, 1 is accepted