Coding the CmdAddtoGrid() Procedure

See Also

Quick Tour

Batch Insert Form

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