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

Neves
não registrado

Postada em 28/04/2006 08:48 hs

Mas entao Ghost, será q com o ListView consigo fazer aquilo que eu disse, na hora de colocar os cheques como compensados!?

Pq pra montar o list com os cheques q nao foram compensados, eu devo usar uma SQL certo?!

Armando Gioia

SÃO PAULO
SP - BRASIL

Postada em 28/04/2006 08:52 hs

para montar o cabeçalho

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(, , "Cod.Pro", 1600)
    Set Col = ListView1.ColumnHeaders.Add(, , "Categoria", 1200)
    Set Col = ListView1.ColumnHeaders.Add(, , "Produto", 2200)
    Set Col = ListView1.ColumnHeaders.Add(, , "QTD. Atual", 1000)
    Set Col = ListView1.ColumnHeaders.Add(, , "QTD. Min.", 1000)
    Set Col = ListView1.ColumnHeaders.Add(, , "Cad. Por", 1700)
    Set Col = ListView1.ColumnHeaders.Add(, , "Librado Por", 1500)
    Set Col = ListView1.ColumnHeaders.Add(, , "Bloqueado", 1000)

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 28/04/2006 08:54 hs

Vou dar um exemplo:

DO while not RSCHEQUES.EOF

ListView.ListItems.add ,,RSCHEQUES("NUMERO_CHEQUE")

IF RSCHEQUES("COMPENSADO") THEN

ListView.ListItems(ListView.ListItems.count).checked = true

ENDIF

RSCHEQUES.MOVENEXT

LOOP

Ai vc vai percorrer sua tabela. O recordset RSCHEQUES vai ter os registros da sua consulta ou simplesmente qdo vc abre a tabela, depende da forma q vc quer fazer.

Depois percorremos a tabela e adicionamos o numero do cheque na lista. Se o campo "compensando" for verdadeiro ele "cheka" o item da lista q foi adicionado, senão não faz nada. Entendeu??

qq dúvida é só postar

Neves
não registrado

Postada em 28/04/2006 08:55 hs

Armando, mas onde que será colocado o SQL dizendo q somente os cheques q nao foram compensados é pra aparecer no List?!!?

Ou eu nao devo usar o sql?!?!

abraços

Neves
não registrado

Postada em 28/04/2006 08:57 hs

Entao Ghost, mas eu quero que apareça somente os cheques q nao foram compensados, pq ai com o CheckBox eu seleciono e clico em um ComandButton e ele atualiza a tabela deixando aqueles cheques compensados!!
Entendeu, qualquer coisa é so postar!!!!!
Abraços

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 28/04/2006 09:06 hs

Então Neves, eu coloquei pra vc colocar de acordo com sua necessidade...

Para vir somente os compensados eu teria q ver como está a estrutura da sua tabela mas supondo q vc colocou um campo chamado COMPENSADO como tipo verdadeiro/falso ficaria assim:

************************************************

RSCHEQUES.CursorLocation = adUseClient

RSCHEQUES.Open "Select * from CHEQUES WHERE Compensado = true",SuaConexaoADO

DO while not RSCHEQUES.EOF

ListView.ListItems.add ,,RSCHEQUES("NUMERO_CHEQUE")

RSCHEQUES.MOVENEXT

LOOP

**************************************

Agora vou aproveitar o código do colega Armando Gioia para colocar o cabeçalho:

***************************************

ListView.ColumnHeaders.Add(, , "Numero do Cheque", 1600)
***************************************

Vai vir tds o cheques q não foram compensados...

Aí o usuário escolhe o q vai ser compensando e vc usa um SQL com UPDATE para atualizar a sua tabela...

certchu??

Se ainda tiver dúvidas é só postar colega

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