viictorsam

salvou a pátria Uhummm Meu Código txtEndereco = rsRegistro("endereco")resolvido assim simples txtEndereco = rsRegistro("endereco") & "" valeu Galera ufaa

Precisando de uma ajudam, estou precisando montar um código para chamar dados de umas listview de acorda com a coluna chamar os dados da coluna da frente. Ex: Ao clicar em um botão encontra o texto na coluna 2 da listview e pega o texto da coluna 3 na mesma linha e joga nas textboxs. Tenho um código já esta funcionando, encontrei esse código com preenchimento de uma textbox e fiz a alteração para outras não sei se esta correto o Código: txtclient8 = "" txtserv8 = "" txtclient83 = "" txtserv83 = "" txtclient9.Text = "" txtserv9.Text = "" Dim A8 As ListItem Dim A83 As ListItem Dim A9 As ListItem For Each A8 In lvwadriana.ListItems If A8.SubItems(2) = "08:00" Then txtclient8.Text = A8.SubItems(3) txtserv8.Text = A8.SubItems(4) Exit For End If For Each A83 In lvwadriana.ListItems If A83.SubItems(2) = "08:30" Then txtclient83.Text = A83.SubItems(3) txtserv83.Text = A83.SubItems(4) Exit For End If For Each A9 In lvwadriana.ListItems If A9.SubItems(2) = "09:00" Then txtclient9.Text = A9.SubItems(3) txtserv9.Text = A9.SubItems(4) Exit For End If Next Next Next