06-17-2008 07:22 AM
06-17-2008 09:58 AM
Sub RowSelect(ByRef nRow)
Dim i
' Remove current selection
Do While Table1.SelectedCells.Count > 0
Call Table1.SelectedCells.Remove(1)
Loop
' Select all cells in the desired row
For i=1 To Table1.Columns.Count
Call Table1.SelectedCells.Add(nRow,i)
Next
End Sub
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
06-18-2008 02:38 AM