I. EQUEL/FORMS Examples : Insertrow
 
Share this page                  
Insertrow
Inserts a new row into a table field.
Examples--insertrow statement:
Example 1:
The following example inserts a new row at the top of the table field display:
## activate menuitem "toprow"
## {
##   insertrow empform employee 0 (ename = vname,
##                                  sal = vsal)
## }
Example 2:
The following example uses the insertrow statement to enable the user to insert a blank row into the table field before or after the current row:
## activate menuitem "InsertBefore"
## {
##   inquire_frs table empform (row = rowno(employee))
     row = row - 1
##   insertrow empform employee row
## }
## activate menuitem "InsertAfter"
## {
##   insertrow empform employee
## }
Example 3:
The following example provides a cut and paste facility, using the deleterow and insertrow statements:
## activate menuitem "Cut"
## {
##  getrow (vname = ename, vage = age)
##    deleterow empform employee
    cut = true
## }
## activate menuitem "Paste"
## {
     if (cut = false) then
##        message "you must select a row first"
##        sleep 2
     else
##        insertrow empform employee (ename = vname,
##                                     age = vage)
          cut = false
     end if
## }
Example 4:
The following example illustrates use of a null indicator variable when assigning a value to a nullable column:
## activate menuitem "NewEmployee"
## {
##   insertrow empform employee
##        (spouse = null, title = vtitle:null_indicator)
## }