DRANDROP LISTVIEW

HILARIO 05/10/2006 00:17:38
#175699
Olá!
Tenho uma listbox que é preenchida através de uma instrução select que seleciona o campo descricao da tabela estoque.
Usando o oledragdrop eu transporto o item desejado do listbox para um listview. Até aí, normal, funciona blz. Só que o listview tem duas colunas: uma para o campo mercadoria e outra para o campo valor. Como posso fazer para, ao arrastar a descrição para a 1Âê coluna, selecionar o valor na tabela estoque e incluir na coluna valor?
Avbraços!
CLEVERTON 05/10/2006 00:48:07
#175700
Hilario, ontem eu te passei uma MP sobre isso

mas lá vai de novo

01 coluna selecionada
ListView1.SelectedItem.Text

02 coluna
ListView1.SelectedItem.SubItems(1)


então ficaria

ListView1.SelectedItem.Text & " - " & ListView1.SelectedItem.SubItems (1)
HILARIO 05/10/2006 01:22:08
#175702
E aí, Cleverton, tudo blz?
Já consegui resolver,valeu!

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
If Not Data.GetFormat(vbCFText) Then Exit Sub
  
  strlist = Data.GetData(vbCFText)
  
  
    ListView1.ListItems.Add 1, , strlist
  sql = "select * from estoque where descricao='" & strlist & "'"
   estoque.Open sql
   ListView1.ListItems(1).SubItems(1) = format(estoque!valor*val(txtquantidade.text), "###,##0.00")
Tópico encerrado , respostas não são mais permitidas
Voltar