SELECAO EM UM FLEXGRID - URGENTE

MARCELO.TREZE 30/07/2012 13:49:58
#406862
Bom se vc quiser selecionar as oito colunas da linha selecionada seria assim:

Private Sub lsv_DblClick()
itemdacoluna0  = lsv.ListItems(lsv.SelectedItem.Index).Text   
itemdacoluna1 = lsv.ListItems(lsv.SelectedItem.Index).ListSubItems(1).text
itemdacoluna2 = lsv.ListItems(lsv.SelectedItem.Index).ListSubItems(2).text
itemdacoluna3 = lsv.ListItems(lsv.SelectedItem.Index).ListSubItems(3).text
[ô] e assim por diante
End Sub
MARCELO.TREZE 30/07/2012 13:52:21
#406863
vc está tentando exibir estes dados onde em textboxs
FERNANDORUBIM 30/07/2012 14:09:15
#406868
sim,um campo text ..o que tá difícil de entender é porque o lsv.ListItems(lsv.SelectedItem.Index).Text está igual a [Ô][Ô] se eu cliquei na segunda linha(este listview só tem 1 coluna)...


DTX_QUAIS_CONTRATOS = lsv.ListItems(lsv.SelectedItem.Index).Text

dai o campo DTX_QUAIS_CONTRATOS não recebe nada .....
MARCELO.TREZE 30/07/2012 14:25:19
#406869
então colega é de estranhesa mesmo, pois aqui os teste funcionaram perfeitamente

codigo do teste

Private Sub lsv_DblClick()
MsgBox lsv.ListItems(lsv.SelectedItem.Index).Text
End Sub
FERNANDORUBIM 30/07/2012 15:01:54
#406874
Marcelo, me tira uma dúvida..ao carregar o listview falo assim,te pergunto,está correto ??? o erro pode estar aqui por estar trazendo [Ô][Ô] no campo lsv.ListItems(lsv.SelectedItem.Index).Text , nessa linha quando clico ===>> DTX_QUAIS_CONTRATOS = lsv.ListItems(lsv.SelectedItem.Index).Text

wl_select = [Ô]SELECT * FROM CLIENTE [Ô]
wl_select = wl_select & [Ô] WHERE [Ô]
wl_select = wl_select & [Ô] NM_CLIENTE = [ô][Ô] & DTX_NM_CLIENTE & [Ô][ô][Ô]
If KTX_NR_CGC <> [Ô]0[Ô] Then
wl_select = wl_select & [Ô] AND NR_CGC = [Ô] & KTX_NR_CGC & [Ô][Ô]
End If
Set cur_DadosForm = db.OpenRecordset(wl_select)
With cur_DadosForm
If .EOF Then
sl_limparDadosForm
End If
Do While Not .EOF
Set Lis = lsv.ListItems.Add
wl_Cont = wl_Cont + 1
WL_CONTRATO = IIf(IsNull(!nr_contrato), [Ô]0[Ô], !nr_contrato)
WL_EXCLUIDO = IIf(IsNull(!FL_CLIENTE_EXCLUIDO), [Ô]0[Ô], !FL_CLIENTE_EXCLUIDO)
Lis.SubItems(1) = WL_CONTRATO
If WL_EXCLUIDO = [Ô]0[Ô] Then
Else
Lis.ListSubItems(1).ForeColor = vbRed
End If
.MoveNext
Loop
.Close
End With

lsv.Height = wl_Cont * 27
lsv.Refresh
MARCELO.TREZE 30/07/2012 15:23:27
#406875
só faz o seguinte mude a propriedade View para lvwreport
FERNANDORUBIM 30/07/2012 15:25:35
#406876
ja esta assim ...
MARCELO.TREZE 30/07/2012 15:28:24
#406877
se não funcionar mude a forma de preencher para

wl_select = [Ô]SELECT * FROM CLIENTE [Ô]
wl_select = wl_select & [Ô] WHERE [Ô]
wl_select = wl_select & [Ô] NM_CLIENTE = [ô][Ô] & DTX_NM_CLIENTE & [Ô][ô][Ô]
If KTX_NR_CGC <> [Ô]0[Ô] Then
   wl_select = wl_select & [Ô] AND NR_CGC =  [Ô] & KTX_NR_CGC & [Ô][Ô]
End If
Set cur_DadosForm = db.OpenRecordset(wl_select)
With cur_DadosForm
    If .EOF Then
       sl_limparDadosForm
    End If
    Do While Not .EOF
 
       wl_Cont = wl_Cont + 1
       WL_CONTRATO = IIf(IsNull(!nr_contrato), [Ô]0[Ô], !nr_contrato)
       WL_EXCLUIDO = IIf(IsNull(!FL_CLIENTE_EXCLUIDO), [Ô]0[Ô], !FL_CLIENTE_EXCLUIDO)
             Set Lis = lsv.ListItems.Add(, , WL_CONTRATO)
       If WL_EXCLUIDO = [Ô]0[Ô] Then  
       Else
          Lis.ListSubItems(1).ForeColor = vbRed
        End If
      .MoveNext
    Loop
    .Close
End With

lsv.Height = wl_Cont * 27
lsv.Refresh
FERNANDORUBIM 30/07/2012 15:34:23
#406878
desse jeito nao carrega nada ...o listvies fica todo em branco
MARCELO.TREZE 30/07/2012 17:36:33
#406888
Ta complicado né tenta ai

wl_select = [Ô]SELECT * FROM CLIENTE [Ô]
wl_select = wl_select & [Ô] WHERE [Ô]
wl_select = wl_select & [Ô] NM_CLIENTE = [ô][Ô] & DTX_NM_CLIENTE & [Ô][ô][Ô]
If KTX_NR_CGC <> [Ô]0[Ô] Then
wl_select = wl_select & [Ô] AND NR_CGC = [Ô] & KTX_NR_CGC & [Ô][Ô]
End If
Set cur_DadosForm = db.OpenRecordset(wl_select)
With cur_DadosForm
If .EOF Then
sl_limparDadosForm
End If
Do While Not .EOF

wl_Cont = wl_Cont + 1
WL_CONTRATO = IIf(IsNull(!nr_contrato), [Ô]0[Ô], !nr_contrato)
WL_EXCLUIDO = IIf(IsNull(!FL_CLIENTE_EXCLUIDO), [Ô]0[Ô], !FL_CLIENTE_EXCLUIDO)
[txt-color=#0000f0]lsv.ListItems.Add , , WL_CONTRATO[/txt-color]
If WL_EXCLUIDO = [Ô]0[Ô] Then
Else
[txt-color=#0000f0] Lsv.ListSubItems(1).ForeColor = vbRed[/txt-color]
End If
.MoveNext
Loop
.Close
End With

lsv.Height = wl_Cont * 27
lsv.Refresh
Página 2 de 3 [26 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar