This procedure copies the data entered in the text boxes to the next empty
grid row. The global variable CurrRow always points to the first empty row in the
grid.
The CmdAddtoGrid_Click() procedure looks like:
Private Sub CmdAddtoGrid_Click()
'Update the grid
'Update Empno column
Grid1.Row = CurrRow
Grid1.Col = 0
Grid1.Text = txtEmpno
'Update Ename column
Grid1.Row = CurrRow
Grid1.Col = 1
Grid1.Text = txtEname
'Update Deptno column
Grid1.Row = CurrRow
Grid1.Col = 2
Grid1.Text = txtDeptno
'Increment CurrCol
CurrRow = CurrRow + 1
NoOfRows = CurrRow - 1
End Sub