CellText Method Example

This examples gets information from the top and bottom rows and displays it in a label.

Sub DataGrid1_Scroll (Cancel As Integer)
   Dim TopRow, BottomRow
   TopRow = DataGrid1.Columns(1).CellText(DataGrid1.FirstRow)
   BottomRow = DataGrid1.Columns(1).CellText(DataGrid1.RowBookmark _
    (DataGrid1.VisibleRows - 1))
   Label1.Caption = "Records " & TopRow & " to " & _
    BottomRow & " are currently displayed."
End Sub