SelectedRowCount プロパティ
SelectedRowCountは選択された行の数を示します。
SelectedColumnCountプロパティを使って、現在選択されている行の数を取り出します。
このプロパティの使用方法を確認するには、次のソースをコピーしてフォームに貼り付け、フォームをコンパイルして実行してください。
FUNCTION options(*DIRECT)
BEGIN_COM role(*EXTENDS #PRIM_FORM) HEIGHT(330) LEFT(285) TOP(124) WIDTH(524)
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) TABPOSITION(1) TOP(16) WIDTH(321)
DEFINE_COM class(#PRIM_GDCL) name(#GDCL_1) CAPTIONALIGN(Left) DISPLAYPOSITION(1) PARENT(#GRID_1) SORTONCLICK(True) SOURCE(#EMPNO) WIDTH(36)
DEFINE_COM class(#PRIM_GDCL) name(#GDCL_2) CAPTIONALIGN(Left) DISPLAYPOSITION(2) PARENT(#GRID_1) SOURCE(#SURNAME) WIDTH(65) WIDTHTYPE(Remainder)
DEFINE_COM class(#STD_NUM.Visual) name(#STD_NUM) CAPTION('Selected Rows:') DISPLAYPOSITION(2) HEIGHT(19) LABELTYPE(Caption) LEFT(32) MARGINLEFT(100) PARENT(#COM_OWNER) TABPOSITION(2) TOP(232) WIDTH(262)
DEFINE_COM class(#PRIM_GPBX) name(#GPBX_1) CAPTION('Selection Style') DISPLAYPOSITION(4) HEIGHT(121) LEFT(368) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(16) WIDTH(137)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_1) BUTTONCHECKED(True) CAPTION('Single') DISPLAYPOSITION(1) LEFT(8) PARENT(#GPBX_1) TABPOSITION(1) TOP(16)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_2) CAPTION('Multiple') DISPLAYPOSITION(2) LEFT(8) PARENT(#GPBX_1) TABPOSITION(2) TOP(40)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_3) CAPTION('Extended') DISPLAYPOSITION(3) LEFT(8) PARENT(#GPBX_1) TABPOSITION(3) TOP(64)
DEFINE_COM class(#PRIM_RDBN) name(#RDBN_4) CAPTION('Whole Row') DISPLAYPOSITION(4) LEFT(8) PARENT(#GPBX_1) TABPOSITION(4) TOP(88)
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.Changed) options(*NOCLEARMESSAGES *NOCLEARERRORS)
CHANGE field(#STD_NUM) to('#GRID_1.SelectedROWCount')
ENDROUTINE
EVTROUTINE handling(#RDBN_1.Click)
IF cond('#RDBN_1.buttonchecked *eq true')
SET com(#grid_1) SELECTIONSTYLE(single)
ENDIF
ENDROUTINE
EVTROUTINE handling(#RDBN_2.Click)
IF cond('#RDBN_2.buttonchecked *eq true')
SET com(#grid_1) SELECTIONSTYLE(multiple)
ENDIF
ENDROUTINE
EVTROUTINE handling(#RDBN_3.Click)
IF cond('#RDBN_3.buttonchecked *eq true')
SET com(#grid_1) SELECTIONSTYLE(extended)
ENDIF
ENDROUTINE
EVTROUTINE handling(#RDBN_4.Click)
IF cond('#RDBN_4.buttonchecked *eq true')
SET com(#grid_1) SELECTIONSTYLE(WholeRow)
ENDIF
ENDROUTINE
END_COM