home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBEXS.EXE / TEST.PRG < prev   
Encoding:
Text File  |  1992-03-18  |  768 b   |  18 lines
  1.       oTbc := TBColumnNew("Last Name", ;
  2.                           {|cLname| iif(cLname == NIL, ;
  3.                                     Students -> Lname,  ;
  4.                                     Students -> Lname := cLname) })
  5.       oTbrStudents:addColumn(oTbc)
  6.     
  7.       oTbc := TBColumnNew("First Name", ;
  8.                           {|cFname| iif(cFname == NIL, ;
  9.                                     Students -> Fname,  ;
  10.                                     Students -> Fname := cFname) })
  11.       oTbrStudents:addColumn(oTbc)
  12.     
  13.       oTbc := TBColumnNew("Telephone", ;
  14.                           {|cTel| iif(cTel == NIL,    ;
  15.                                       Students -> Tel, ;
  16.                                       Students -> Tel := cTel) })
  17.  
  18.