Subscript out of range....

[homesick]

I have a function that totals columns from a grid and displays the amounts in a textbox....it works great when there are records found but if the user clicks on the "total" button with no records i get the error "subscript out of range"...i want it to display "0".....i tried changing....For R = 0 To grid.Rows -1 to For R= 0 To -1..it displays a "0" when no records are found but it doesn't help......can anyone help......here is what i have....



Private Function TotalColumn(grid As MSFlexGrid, ByVal ColIndex As Long) As Long
Dim R As Long
Dim total As Long

For R = 0 To grid.Rows - 1
If IsNumeric(grid.TextMatrix(R, ColIndex)) Then
total = total + (grid.TextMatrix(R, ColIndex))
End If
Next R

TotalColumn = total

End Function

 

[Durkin]

Try something like:
if grid.rows <> 0 then
put your loop in here
else
total = 0
end if
Durkin

 

[MrEGuest]

What is the value of ColIndex when the error is produced.

I don't think the problem is with your for loop.

If colIndex is a number greater than the number of columns in your grid, you'll definitly receive a &quot;Subscript out of Range&quot; error.

Remember that the first row is row 0 and the first col is col 0. If you have 4 columns and are trying to refer to col4 that would be a bad thing.

Good Luck!
Josh

 

[homesick]

My ColIndexes are all fine.....when i have... For R = 0 To grid.Rows - 1....it sums fine but will give me the error when there are no records showing in the grid.....when i change it to... For R = 0 To grid.Rows 0 - 1...it shows &quot;0&quot; when there are no records displayed in the grid....but now it won't sum.....confused.......