Hakofuguさん、こんにちは。

＞ftp://ftp.ashisuto.co.jp/pub/sybase/TechNote/4421.pdf
ありがとうございます！
ずばりこれです！！！（結構うれしい）

この手法を採用させていただきます。

結構感動しました！
有難うございました。

スクリプトはこんな感じで作成しました。
------------------------------------------------------------

//
String　　　　　　　　strScript

//　起動ﾁｪｯｸ
IF　NOT　flg　THEN　RETURN
CHOOSE　CASE　dwo．Name
　CASE　”code”
　　//　Protectﾌﾟﾛﾊﾟﾃｨに設定されている式を取得
　　strScript　=　TrimW(Describe(”code．Protect”))
　　//　計算式が設定されているかをﾁｪｯｸ
　　If　Pos(strScript　,　”~t”)　>　0　Then
　　　//　計算式を取得
　　　strScript　=　Mid(strScript　,　Pos(strScript　,　”~t”)　+　1)
　　　strScript　=　Left(strScript　,　LenW(strScript)-1)
　　　
　　　//　ｶﾗﾑがﾌﾟﾛﾃｸﾄされているときは処理中止
　　　If　Describe(”Evaluate(’”+strScript+”’,”+String(GetRow())+”)”)=”1”Then　Return
　　//　計算式がない場合
　　Else
　　　//　ｶﾗﾑがﾌﾟﾛﾃｸﾄされているときは処理中止
　　　If　strScript　=　”1”　Then　Return
　　End　If
　　//
　　IF　Handle(w_listSrch)　=　0　THEN
　　　IF　This．tag　=　””　THEN　RETURN
　　　//　検索画面表示
　　　OpenWithParm(w_listSrch,　This)
　　ELSE
　　　　w_listSrch．ioCont　=　This
　　END　IF
END　CHOOSE