s_fcell ret
long l_cols //カラム数
long l_rows //総行数
long l_srow //検索開始行（開始列のみ）
long l_frow //該当行

string l_colname //カラム名
long n //ループカウンタ
long p //文字列置換用ポインタ

//検索対象文字列に「\'」が存在した場合の処理
p = pos(p_txt,\"\'\")
do while p > 0
　p_txt = replace(p_txt,p,1,\"~\'\")
　p = pos(p_txt,\"\'\",p + 1)
loop

l_cols = long(this.Object.DataWindow.Column.Count)
l_rows = this.rowcount()

for n = p_scol to l_cols
　if n = p_scol then
　　//検索開始カラム番号の場合、指定行から検索
　　if p_srow > l_rows then continue //最終行なら次行へ
　　l_srow = p_srow
　else
　　//それ以外は、先頭行から検索
　　l_srow = 0
　end if
　l_colname = this.describe(\"#\" + string(n) +\".name\" )
　//文字列型のみのカラムを検索する場合
　if pos(lower(this.describe(l_colname+\".ColType\")),\'char\') <= 0 then continue
　ret.row_no = this.find(l_colname+\" = \'\"+p_txt+\"\'\",l_srow,l_rows )
　/***文字型以外も検索させる場合***********
　//データ型のチェックを外す
　l_frow = this.find(\"string(\"+l_colname+\") = \'\"+p_txt+\"\'\",l_srow,p_erow )
　***************************************/
　//存在した場合
　if ret.row_no > 0 then
　　ret.col_no = n
　　exit
　end if
next
//全てチェックし、存在しない場合は
//カラムIDに失敗の戻り値をセット
if ret.row_no <= 0 then
　ret.col_no = -1
end if
return ret

関数を呼び出す
s_fcell ret
l_colid = long(dw_2.describe(dw_2.getcolumnname()+\'.ID\')) //列番号取得
ret = dw_1.findcell(\'文字列\',l_colid,dw_2.getrow() + 1)
messagebox(\'\',string(ret.col_no)+\',\'+string(ret.row_no))

全件置換の場合
ret.col_no = 1
ret.row_no = 0
do
　ret = dw_1.findcell(\'文字列\',ret.col_no,ret.row_no + 1)
　//存在すれば置換
　if ret.row_no > 0 then
　　dw_1.object.data[ret.col_no,ret.row_no] = \'XXX\'
　end if
loop until ret.row_no <= 0

おかしな箇所があれば、誰か突っ込んで下さい。