Dica de como montar meu FORM,com CHECKBOX "URGENTE


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Dica de como montar meu FORM,com CHECKBOX "URGENTE

Armando Gioia

SÃO PAULO
SP - BRASIL

Postada em 28/04/2006 09:07 hs

é só vc adaptar ela ai

ListView1.LabelEdit = lvwManual
    ListView1.GridLines = True
' ListView1.Checkboxes = True
    ListView1.HideSelection = False
    ListView1.FullRowSelect = True ' seleciona toda linha
    ListView1.Sorted = True
' ListView1.HoverSelection = True ' SELECIONA QDO MOUSE PASSA SOBRE
    ListView1.View = lvwReport
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo0", 1600)
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo1", 1200)
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo2", 2200)
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo3", 1000)
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo4", 1000)
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo5", 1700)
    Set Col = ListView1.ColumnHeaders.Add(, , "Campo6", 1500)

Set rst1 = New ADODB.Recordset
    axsql = "SELECT * from tabela where cheque = 1"
    rst1.Open axsql, conxao
    If rst1.RecordCount < 0 Then
    Do Until rst1.EOF
    Set lin = ListView1.ListItems.Add(, , (rst1!campo0))
    lin.SubItems(1) = (rst1!campo1)
    lin.SubItems(2) = (rst1!campo2)
    lin.SubItems(3) = (rst1!campo3)
    lin.SubItems(4) = (rst1!campo4)
    lin.SubItems(5) = (rst1!campo5)
    lin.SubItems(6) = (rst1!campo6)
    End If
    rst1.MoveNext
    Loop

Neves
não registrado

Postada em 28/04/2006 09:13 hs

Ghost pra te falar a verdade eu nem sei oq é o RSCHEQUES, sou novato em vb bichao, se eu usar o componente Data não funciona?!?!?

E oq seria o RSCHEQUES!?!?

abraços

Armando Gioia

SÃO PAULO
SP - BRASIL

Postada em 28/04/2006 09:15 hs

o exemplo que te mandei é usando ADO....

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 28/04/2006 09:19 hs

RSCHEQUES é o recordset...

No seu caso então seria Data1.Recordset em vez de RSCHEQUES e não precisa do código de conexão... só pega o exemplo do loop q fiz com DO WHILE

Data1.Recorset.MoveF irst

Do While Data1.Recordset

ListView.ListItems.add ,,Data1.Recordset("NUMERO_CHEQUE")

Data1.Movenext

loop

Neves
não registrado

Postada em 28/04/2006 09:19 hs

Armando e se eu usar um data, funciona?!?! ai é sou eu alterar onde vc usou os comandos do ADO nao é!?!?

abraços

Nunca mexi com ado!!! nem sei como que faz pra usar, eu acho q sempre uso DAO

Neves
não registrado

Postada em 28/04/2006 09:48 hs

Armando e Ghost, por enquanto estou fazendo ainda, mas me parece que deu certo, qualquer coisa vou postar aki novamente pra vcs me ajudarem!!!
Abração

Página(s): 3/10 « ANTERIOR PRÓXIMA »