CurrentItemのPosition プロパティ
リストまたはグリッド項目のPositionプロパティを使って、リストまたはグリッドのどの位置が表示されているかを探しだします。
次のコードでは、フィールド#STD_NUMのグリッドの項目の位置を示します。 このコードをコピーしてフォームに貼り付けることもできます。
FUNCTION options(*DIRECT)
BEGIN_COM role(*EXTENDS #PRIM_FORM) HEIGHT(289) LEFT(346) TOP(213) WIDTH(392)
DEFINE_COM class(#PRIM_GRID) name(#GRID_1) COLUMNBUTTONHEIGHT(18) COLUMNBUTTONPRESS(True) DISPLAYPOSITION(1) HEIGHT(201) LEFT(32) PARENT(#COM_OWNER) SHOWBUTTONSELECTION(False) SHOWSELECTION(True) SHOWSORTARROW(True) TABPOSITION(1) TOP(16) WIDTH(321)
DEFINE_COM class(#PRIM_GDCL) name(#GDCL_1) CAPTIONALIGN(Left) DISPLAYPOSITION(1) PARENT(#GRID_1) SOURCE(#EMPNO) WIDTH(36)
DEFINE_COM class(#PRIM_GDCL) name(#GDCL_2) CAPTIONALIGN(Left) DISPLAYPOSITION(2) PARENT(#GRID_1) SOURCE(#SURNAME) WIDTH(65)
DEFINE_COM class(#STD_NUM.Visual) name(#STD_NUM) DISPLAYPOSITION(2) HEIGHT(19) LEFT(32) PARENT(#COM_OWNER) TABPOSITION(2) TOP(232) WIDTH(262)
EVTROUTINE handling(#COM_OWNER.Initialize) options(*NOCLEARMESSAGES *NOCLEARERRORS)
SELECT fields(#GRID_1) from_file(PSLMST)
ADD_ENTRY to_list(#GRID_1)
ENDSELECT
ENDROUTINE
EVTROUTINE handling(#GRID_1.ItemGotFocus) options(*NOCLEARMESSAGES *NOCLEARERRORS)
CHANGE field(#STD_NUM) to('#GRID_1.CURRENTITEM.POSITION')
ENDROUTINE
END_COM