adding data on data grid

[lalee5]

I search most of the threads but found no solution. Pelase help if you can

I have a data grid that only display certain records that match my criteria.

I need to add up one of the columns.

I did a loop and it sums up the entire tables. I just need to add the displayed records.


Thanks in advance

Dim dTotal As Double
Dim rsclone As ADODB.Recordset

Set rsclone = Adopurchase.Recordset.Clone

With rsclone
rsclone.MoveFirst
Do Until .EOF
If Not IsNull(.Fields("purproductqty&quot) Then dTotal = dTotal + .Fields("purproductqty&quot.Value
rsclone.MoveNext
Loop
Total.Text = dTotal

 

[AshfaqAhmad]

Hi,
Loop through just visible rows of the DataGrid like

For i = 0 To DataGrid1.VisibleRows - 1
dTotal = dTotal + DataGrid1.Columns(HereCloumNumber).CellText(DataGrid1.RowBookmark(i))
Next

Hope this will help!