Re: Listbox

[Lucio Liberi <lucioing at tin dot it>]

c'e' un popum menu con tutti i nomi delle carte di credito in uso...
nel sub Change ho scritto:

  Dim rs as RecordSet
  Dim Totale As Double
  Dim i As Integer
  Dim MoneyFormat As string

  MoneyFormat="#,###,###.00"

  Totale=0
  StaticText1.text=Format(Totale, MoneyFormat)

  if me.Text="Tutte le carte" Then
    rs = myCCdatabase.SQLSelect("SELECT * FROM CreditCardOperations  
ORDER BY DataInteger")
  else
    rs = myCCdatabase.SQLSelect("SELECT * FROM CreditCardOperations  
WHERE CreditCard='"+me.Text+"'"+"ORDER BY DataInteger")
  end if

  App.FillListBox(OPListBox, rs)

  for i=0 to OPListBox.ListCount-1
    Totale=Totale+CDbl(OPListBox.cell(i,3))
    StaticText1.text=Format(Totale, MoneyFormat)
  next

ciao...
Lucio

Il giorno 17/gen/07, alle ore 19:22, Massimo Valle ha scritto:

> On 17/gen/07, at 18:11, Lucio Liberi wrote:
>
> > Insomma, i decimali separati dal punto che c'e' sul pad numerico,  
> > che poi nel nostro layout di tastiera, corrisponde alla virgola...
> > Si, forse e' il caso di coinvolgere anche Marco...
> Puoi postare la query "SELECT....." che usi per ottenere il RecordSet?
>
> Massimo
>
>
> Chiacchiera con i tuoi amici in tempo reale!http://it.yahoo.com/ 
> mail_it/foot/*http://it.messenger.yahoo.com