Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub NumberRows()
Dim Row As SSRow
Dim RowNum As Integer
If gridPending.HasRows = True Then
RowNum = 0
Set Row = gridPending.GetRow(ssChildRowFirst)
RowNum = RowNum + 1
Row.Cells.Item("RowNum").Value = RowNum
Do Until Not Row.HasNextSibling
Set Row = Row.GetSibling(ssSiblingRowNext)
RowNum = RowNum + 1
Row.Cells.Item("RowNum").Value = RowNum
Loop
Else
'do nothing
End If
End Sub