home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / ADDFLDS.PRG next >
Encoding:
Text File  |  1992-03-09  |  818 b   |  29 lines
  1.     // AddFlds.prg
  2.     //
  3.     //   AddAllFields()   - Add all fields in current database as TBColumns
  4.     //                      to the passed TBrowse object
  5.  
  6.     FUNCTION AddAllFields(oTbr)
  7.     
  8.     LOCAL oTbc, ;
  9.           nFieldNum, ;
  10.           nFields := fcount()
  11.     
  12.       FOR nFieldNum := 1 TO nFields
  13.         IF valtype(fieldget(nFieldNum)) == "M"
  14.           oTbc := TBColumnNew(field(nFieldNum), ;
  15.                               MemoBlock(nFieldNum))
  16.         ELSE
  17.           oTbc := TBColumnNew(field(nFieldNum), fieldblock(field(nFieldNum)))
  18.         ENDIF
  19.         oTbr:addColumn(oTbc)
  20.       NEXT
  21.     
  22.     RETURN NIL
  23.  
  24.     FUNCTION MemoBlock(nFieldNum)
  25.  
  26.     RETURN {|nMode| iif(nMode == NIL, ;
  27.                         "Memo", ;
  28.                         fieldblock(field(nFieldNum))) }
  29.