JCL_lst_SelectOneRow_byValue

/ JCL_lst / By

配列型リストボックスのある列の値を指定して、行を選択する。単数。

使い方
JCL_lst_SelectOneRow_byValue (->vA05_lstJO;->vA05_lstJO_ID;->$jo_id)

引数
$1: リストボックスオブジェクトのポインタ
$2: リストボックスにアサインされた配列の列（プロセス変数）のポインタ
$3: アサインされた配列と比較する値

  //JCL_lst_SelectOneRow_byValue
  //20220605 wat
  //リストボックスの行を選択する。単数

C_POINTER($1;$inListBoxPtr)
$inListBoxPtr:=$1  //リストボックスのブーリアン配列
C_POINTER($2;$inListBoxDataPtr)
$inListBoxDataPtr:=$2  //リストボックスの対象データ配列
C_POINTER($3;$selValuesPtr)
$selValuesPtr:=$3  //選択されている行の値を保持する値のポインタ
C_LONGINT($0;$cnt)
$cnt:=0

  //すべての行の選択を解除
LISTBOX SELECT ROW($inListBoxPtr->;0;lk remove from selection)

  //配列にあるのを選択
$index:=Find in array($inListBoxDataPtr->;$selValuesPtr->)
If ($index#-1)
	  //値があったら
	LISTBOX SELECT ROW($inListBoxPtr->;$index;lk replace selection)
	$cnt:=$cnt+1
	
End if 

$0:=$cnt

複数行を選択する場合は、JCL_lst_SelectRows_byValues