Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

列のSortOnClickプロパティをTrueに設定すると、リスト・ビューの列を昇順または降順でソートできます。

この例では、社員番号、名前、賃金、郵便番号のリスト・ビューがあります。ユーザーは、好きな列の先頭をクリックし、いつでもリストを動的にソートできます。 

Image RemovedImage Added

例の動作を見るには、このコードをフォーム・コンポーネントにコピーします。

...

     FUNCTION options(*DIRECT)
BEGIN_

...

COM role(*

...

EXTENDS #PRIM_FORM)

...

 HEIGHT(330)

...

 LEFT(327)

...

 TOP(120)

...

 WIDTH(604)
DEFINE_

...

COM class(#PRIM_LTVW)

...

 name(#EMPLIST)

...

 DISPLAYPOSITION(1)

...

 FULLROWSELECT(True)

...

 HEIGHT(285)

...

 LEFT(8)

...

 PARENT(#COM_OWNER)

...

 TABPOSITION(1)

...

 TOP(8)

...

 WIDTH(577)
DEFINE_

...

COM class(#PRIM_LVCL)

...

 name(#LVCL_1)

...

 DISPLAYPOSITION(1)

...

 PARENT(#EMPLIST)

...

 SORTONCLICK(True)

...

 SOURCE(#EMPNO)

...

 WIDTH(18)
DEFINE_

...

COM class(#PRIM_LVCL)

...

 name(#LVCL_2)

...

 DISPLAYPOSITION(2)

...

 PARENT(#EMPLIST)

...

 SORTONCLICK(True)

...

 SOURCE(#SURNAME)

...

 WIDTH(23)
DEFINE_

...

COM class(#PRIM_LVCL)

...

 name(#LVCL_3)

...

 DISPLAYPOSITION(3)

...

 PARENT(#EMPLIST)

...

 SORTONCLICK(True)

...

 SOURCE(#GIVENAME)

...

 WIDTH(25)
DEFINE_

...

COM class(#PRIM_LVCL)

...

 name(#LVCL_4)

...

 DISPLAYPOSITION(4)

...

 PARENT(#EMPLIST)

...

 SORTONCLICK(True)

...

 SOURCE(#SALARY)

...

 WIDTH(16)
DEFINE_

...

COM class(#PRIM_LVCL)

...

 name(#LVCL_5)

...

 DISPLAYPOSITION(5)

...

 PARENT(#EMPLIST)

...

 SORTONCLICK(True)

...

 SOURCE(#POSTCODE)

...

 WIDTH(18)

...

     EVTROUTINE handling(#com_owner.Initialize)

...

     SELECT fields(#EMPLIST)

...

 from_file(PSLMST)
ADD_

...

ENTRY to_list(#EMPLIST)
ENDSELECT
ENDROUTINE
END_COM