Grid Item - Cell Property

Reference to cell in the item accessible by column reference

Member of Grid Item (PRIM_GDIT)

Data Type - PRIM_GDCE - Grid cell

Parameters

NameTypeData TypeDescription
Column*InputIntegerReference to the column in which the cell is found

Details

The Cell property provides access to a Cell in the item via the column.

Example

The example below accesses the focus item and uses the first visible column to get the cell value from the focus item.
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(794) Clientheight(367) Componentversion(2) Top(227) Left(199) Layoutmanager(#TableLayout1)
 
   Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Item) Name(#GridItem1) Column(#Column1) Manage(#Grid) Parent(#TableLayout1) Row(#Row1)
 
   Define_Com Class(#PRIM_GRID) Name(#Grid) Captionnoblanklines(True) Columnscroll(False) Componentversion(1) Displayposition(1) Left(0) Parent(#COM_OWNER) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(1) Top(0) Height(367) Width(794) Tabbingstyle(AroundGrid) Columnbuttonheight(22) Rowheight(22)
   Define_Com Class(#PRIM_GDCL) Name(#GridColumn1) Displayposition(1) Parent(#Grid) Source(#EMPNO) Width(14)
   Define_Com Class(#PRIM_GDCL) Name(#GridColumn2) Displayposition(2) Parent(#Grid) Source(#SURNAME)
   Define_Com Class(#PRIM_GDCL) Name(#GridColumn3) Displayposition(3) Parent(#Grid) Source(#GIVENAME)
   Define_Com Class(#PRIM_GDCL) Name(#GridColumn4) Displayposition(4) Parent(#Grid) Source(#ADDRESS1)
   Define_Com Class(#PRIM_GDCL) Name(#GridColumn5) Displayposition(5) Parent(#Grid) Source(#ADDRESS2)
   Define_Com Class(#PRIM_GDCL) Name(#GridColumn6) Displayposition(6) Parent(#Grid) Source(#ADDRESS3)
 
   Evtroutine Handling(#Com_Owner.CreateInstance)
 
      Select Fields(#Grid) From_File(pslmst)
 
         Add_Entry To_List(#Grid)
 
      Endselect
 
   Endroutine
 
      Evtroutine Handling(#Grid.Changed)
 
         #Com_owner.Caption := ("Item EMPNO - &1").Substitute( #Grid.FocusItem.Cell<1>.Value )
 
      Endroutine
 
End_Com
 

See also

All Component Classes

Technical Reference

LANSA Version 15, April 2020