Add the values in datagrid

[berry]

Hi all,

Can anyone help me?? I want to add all the values in the datagrid in a field to a text box. How do I do? The below is my code. But it only can display the first value. It cannot add all the values. Please have a look on it. Thank you very much...

Dim total As Single
total = 0
     Do While Not Adodc.Recordset.EOF
        total = total + Adodc.Recordset.Fields("Hour")
        text1.Text = total
        Adodc.Recordset.MovePrevious
     Loop

[Killer42]

Perhaps you need to to a MoveLast before starting this?

[berry]

YEA..It's work!! Thank you very much..

[Killer42]

YEA..It's work!! Thank you very much..

Excellent! Glad to help. :)

[Killer42]

Hi killer42,
now I having another problem. I want to consider that if there is no data in the datagrid, what is the code I should use?

I try to use datagrid.rowcontaining = 0 but it is wrong. I really don't know what should use. Hope to help.

Thank you.

Sorry, I'm really not familiar with the datagrid. I suggest you post this as a new discussion thred so others can answer it.

Hold on - I'll split it off to its own thread for you. Here's a link to the new thread.

[berry]

ok. thank you very much..

Sorry, I'm really not familiar with the datagrid. I suggest you post this as a new discussion thred so others can answer it.

Hold on - I'll split it off to its own thread for you. Here's a link to the new thread.