| どうも、わいもさん
以下の部分を変更してください。
１）"出勤区分No"（ファミリオブジェクト）のソース値更新にチェックを入れる
２）テキストオブジェクト
t表示出勤区分No_○○ のソース値更新のチェックを外す。
どうやら、これがあるため、ファミリ側よりも優先されてしまうようです
３）以下のソースを変更する
代入 &処理日=#数値(#文字置換(&this,"t表示出勤区分No_",""))
条件 (&出勤区分No[&処理日]=1) コマンド "メソッド呼び出し @t表示出勤時_"+#文字列(&処理日)+".フォーカス設定()"
条件 (&出勤区分No[&処理日]<>1) コマンド "メソッド呼び出し @t表示出勤区分No_"+#文字列(&処理日+1)+".フォーカス設定()"
を以下の構文
代入 &処理日=#数値(#文字置換(&this,"t表示出勤区分No_",""))
条件 (&表示出勤区分No[&処理日]=1) コマンド "メソッド呼び出し @t表示出勤時_"+#文字列(&処理日)+".フォーカス設定()"
条件 (&表示出勤区分No[&処理日]<>1) コマンド "メソッド呼び出し @t表示出勤区分No_"+#文字列(&処理日+1)+".フォーカス設定()"
これで、いいはずです。
ただし、これでも希望通りにならないのであれば・・・
手続き定義開始 出勤区分No::ｿｰｽ値更新()
の前行に ＊ を入れてください。
メイン部とソース部（←読み方あってたよね？）を分けてみてください。
希望通りに出来ないときは、デバックをするとよいですよ。
例えば、確認コマンドを使用して、今の変数名と値を調べる等をするとはっきり
分かりますよ。
|
