none
autocomplete textbox RRS feed

  • Pergunta

  • Seguindo o exemplo do site do macorratti. Estou tentando fazer um autocomplete com o textbox

    http://www.macoratti.net/09/02/vbn_aad.htm

    Mas o textbox so esta sendo preenchido com System.string[] e não estou conseguindo entender onde estou errado

      Private Sub FRM_LAUDOS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Try
    
                Dim DT As DataTable = globalFunc.showClientes()
                Dim lista() As String
    
            
    
                Dim dadosdalista As New AutoCompleteStringCollection
    
    
    
                For i As Integer = 0 To DT.Rows.Count - 1
                    ReDim lista(i)
                    lista(i) = DT.Rows(i)(0).ToString
                    '   DT.Rows(i)("cliente").ToString)
                Next
    
                TXT_NOME.AutoCompleteCustomSource.Add(lista.ToString)
                TXT_NOME.AutoCompleteMode = AutoCompleteMode.SuggestAppend
                TXT_NOME.AutoCompleteSource = AutoCompleteSource.CustomSource
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    
    
        End Sub

    sábado, 5 de julho de 2014 20:29

Respostas

  • Pode mostrar o possível erro que está ocorrendo ou uma print exibindo o comportamento que está acontecendo?

    Ficou meio ruim de entender qual é o seu problema.

    Att,

    TP.

    domingo, 6 de julho de 2014 22:53
  • junior,

    tenta assim

            Dim dt As DataTable = globalFunc.showClientes()
            Dim lista As New List(Of String)
            Dim dadoslista As New AutoCompleteStringCollection
    
            For i As Integer = 0 To dt.Rows.Count - 1
                lista.Add(dt.Rows(i)(0).ToString)
            Next
    
            dadoslista.AddRange(lista.ToArray)
            TextBox1.AutoCompleteCustomSource = dadoslista

    segunda-feira, 7 de julho de 2014 12:36

Todas as Respostas

  • Pode mostrar o possível erro que está ocorrendo ou uma print exibindo o comportamento que está acontecendo?

    Ficou meio ruim de entender qual é o seu problema.

    Att,

    TP.

    domingo, 6 de julho de 2014 22:53
  • junior,

    tenta assim

            Dim dt As DataTable = globalFunc.showClientes()
            Dim lista As New List(Of String)
            Dim dadoslista As New AutoCompleteStringCollection
    
            For i As Integer = 0 To dt.Rows.Count - 1
                lista.Add(dt.Rows(i)(0).ToString)
            Next
    
            dadoslista.AddRange(lista.ToArray)
            TextBox1.AutoCompleteCustomSource = dadoslista

    segunda-feira, 7 de julho de 2014 12:36
  • OK, funcionou.

    Obrigado

    terça-feira, 8 de julho de 2014 12:19