Sub GotoRow(RowIndex As Long)
Dim rp As Long = tblDataBrowserTable.RowsPerPage
Dim pnm As Long = RowIndex Mod rp
Dim pn As Long = RowIndex / rp
If pnm > 0 Then
pn = pn +1
End If
tblDataBrowserTable.CurrentPage = pn
TableStyle.CellClicked("", RowIndex)
End Sub