Somar Listviewr


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Somar Listviewr

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2006 15:55 hs

Perae... se suas colunas são assim:

(11) = coluna Valor Total

(8) = Coluna Unidades

(9) = Coluna Valor

Coluna 1 = Item

Coluna 2 = subItem

Coluna 3 = subItem

...

Coluna 8 = Colunas Unidade

Coluna 9 = Coluna Valor

...

Coluna 11 = Coluna Valor Total

Então o q vc tem q fazer é assim:

'Código q adiciona os itens no seu ListView

...

'Código q calcula unidades * valor

ListView.ListItems(ListView.ListItems.Count).SubItems(11) = Format(ccur(ListView.ListItems(ListView.ListItems.Count).SubItems(8)) * ccur(ListView.ListItems(ListView.ListItems.Count).SubItems(9)),"#00.00")

Aí é o seguinte...

Estou calculando o valor * unidade para o ÚLTIMO item inserido no list...

Pq se vc insere na lista (ListView.ListItems.add ,,"Item") concorda q ListView.ListItems.Count será a qtde total de itens da sua lista??

E tb concorda q se eu fizer isso:

ListView.ListItems(ListView.ListItems.Count)

Estarei pegando o último registro inserido na lista?

Bom,veja se dá certo o cálculo ae...

qq cois posta colega

Korn

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2006 16:28 hs

POde cre a numeracao a ordem dos itens eu tava transferindo pro meu ghost, pra ver se dava certo ...... akele la era só um demo to ligado ......mas pode cre eu vou testar eu aj volto aki.......valew

Jesus Cristo é O Senhor!!!

Korn

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2006 17:03 hs

Sim deu certo ghost , mas ae ele multiplica tudo de boa , mas quando eu dou um atualizar o conteudo do Valor Total Some irmao ,eu fiz assim ó

botao incluir

SQL = "Select * FROM Tbl_Contas Where CodigoH = '" & txtCodigo & "'"
Rs2.Open SQL, Conn1, adOpenKeyset, adLockOptimistic

If Not Rs2.EOF Then
    MsgBox "        Codigo já Existe       ", vbCritical
    Rs2.Close
    txtCodigo.SetFocus
    GoTo 20
End If

Rs2.AddNew

Rs2!CodigoH = UCase(txtCodigo)
Rs2!Empresa = UCase(txtEmpresa)
Rs2!Contato = UCase(txtcontato)
Rs2!cnpj = UCase(txtcnpj)
Rs2!Descricao = UCase(txtdescricao)
Rs2!TipoDoc = UCase(txtdocumento)
Rs2!Telefone = UCase(txttel1)
Rs2!DataPag = UCase(txtdata)
Rs2!Unidade = UCase(txtunidade)
Rs2!Valor = UCase(txtvalor)

Rs2.Update
'Rs2.Close
MsgBox " Registro Incluido Corretamente ", vbInformation
LlenaListView3
20:

Function LlenaListView3()
' Set Rs2 = New ADODB.Recordset
'Set Conn1 = New ADODB.Connection

    ' Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Lab.MDB;Persist Security Info=False"
' Rs2.Open "Select CodigoH,* FROM Tbl_Contas Order by CodigoH asc", Conn1, adOpenKeyset, adLockOptimistic

    'encabeçando a LISVIEW
    LV1.ListItems.Clear
    LV1.ColumnHeaders.Clear
    LV1.ColumnHeaders.Add 1, , "Codigo", 1200
    LV1.ColumnHeaders.Add 2, , "Nome Empresa", 4000
    LV1.ColumnHeaders.Add 3, , "Contato", 4000
    LV1.ColumnHeaders.Add 4, , " N°CNPJ", 4000
    LV1.ColumnHeaders.Add 5, , "Descrição", 4000
    LV1.ColumnHeaders.Add 6, , "Tipo de Documento", 4000
    LV1.ColumnHeaders.Add 7, , "Telefone", 4000
    LV1.ColumnHeaders.Add 8, , "Data Vencimento", 4000
    LV1.ColumnHeaders.Add 9, , "Unidades", 4000
    LV1.ColumnHeaders.Add 10, , "Valor", 2000
    LV1.ColumnHeaders.Add 11, , "Pagamento Efetuado", 2000
    LV1.ColumnHeaders.Add 12, , "Valor Total", 2000
    LV1.ColumnHeaders.Add 13, , "", 1
    txtTotal = LV1.ListItems.Count

While Not Rs2.EOF

    LV1.ListItems.Add 1, , Rs2!CodigoH
    LV1.ListItems(1).SubItems(1) = Rs2!Empresa
    LV1.ListItems(1).SubItems(2) = IIf(IsNull(Rs2!Contato), "", Rs2!Contato)
    LV1.ListItems(1).SubItems(3) = IIf(IsNull(Rs2!cnpj), "", Rs2!cnpj)
    LV1.ListItems(1).SubItems(4) = IIf(IsNull(Rs2!Descricao), "", Rs2!Descricao)
    LV1.ListItems(1).SubItems(5) = IIf(IsNull(Rs2!TipoDoc), "", Rs2!TipoDoc)
    LV1.ListItems(1).SubItems(6) = IIf(IsNull(Rs2!Telefone), "", Rs2!Telefone)
    LV1.ListItems(1).SubItems(7) = IIf(IsNull(Rs2!DataPag), "", Rs2!DataPag)
    LV1.ListItems(1).SubItems(8) = IIf(IsNull(Rs2!Unidade), "", Rs2!Unidade)

    LV1.ListItems(1).SubItems(9) = Format(Rs2("Valor"), "currency")
    LV1.ListItems(1).SubItems(10) = IIf(IsNull(Rs2!dataQpagou), "", Rs2!dataQpagou)

    LV1.ListItems(LV1.ListItems.Count).SubItems(11) = Format(CCur(LV1.ListItems(LV1.ListItems.Count).SubItems(8)) * CCur(LV1.ListItems(LV1.ListItems.Count).SubItems(9)), "#00.00")
    LV1.ListItems(1).SubItems(12) = Rs2!idH
    txtTotal = LV1.ListItems.Count

    Rs2.MoveNext

Wend

Rs2.Close

txtCodigo = ""
txtEmpresa = ""
txtcontato = ""
txtcnpj = ""
txtdescricao = ""
txtdocumento = ""
txttel1 = ""
txtdata = ""
txtunidade = ""
txtvalor = ""
txtdataQpagou = ""
txtvaltot = ""

100:

Jesus Cristo é O Senhor!!!

TÓPICO EDITADO

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2006 17:09 hs

qdo vc atualiza isso?

E como assim some td?

Korn

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2006 17:11 hs

sim tipo porq na hora que eu insiro , ele seleciona no list somente o novo registro incluido , tudo certo, mas depois que eu por exemplo eu saio do form e entro de novo ou atualizo , tipo inserindo um condigo que monte o listview de novo , pra dar um atualizar , ae o campo Valor Total , o conteudo dele some

Jesus Cristo é O Senhor!!!

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 14/08/2006 17:27 hs

2 coisas...

Assim:

Do modo q está vc está sempre modificando o primeiro item!!

a segunda coisa é q vc vc dá um LV1.ListItems.Clear para limpar a ListView.

Bom, até ae blz mas vc tá adicionando o item dentro de um loop de Recordset, e CASO NÃO TENHA NADA NO RECORDSET ou O RECORDSET TÁ NO FIM (EOF = TRUE) então NÃO entra no loop e não adiciona nada entendeu?

Ele limpa, depois não adicionada nada...

Dê uma verificada...debuga pra ver se tá entrando na linha q insere o item...

depois postae

TÓPICO EDITADO

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

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR