Potatoさん、こんにちは。

＞２４０ＳＸさん、こんにちは。
＞
＞＞　下記のロジックで・・・不正な処理と表示され強制終了されてしまうのは何故ですか？
＞＞
＞＞＞＞
＞＞For li_loop_cnt = 1 To dw_1.RowCount()
＞＞

＞＞   If 条件?
＞＞
＞＞      dw_1.DeleteRow(li_loop_cnt)
＞＞      li_loop_cnt = li_loop_cnt - 1
＞＞
＞＞   End If
＞＞
＞＞Next
＞＞
＞＞　　※条件式に間違いはないです。
＞＞
＞直接の原因ではないかもしれませんが、
＞まず、dw_1.RowCount()はループ処理の前でLongの変数に入れてから
＞その変数をFor loopに使ったほうがよいです。
＞そうでないと、For loopで毎回行のカウントを行なうことになりま
＞すから。
＞
＞それから、DeleteRowでループで削除するときは、
＞後ろの行からstep -1で削除したほうがよいです。
＞なぜなら、1行削除されると、削除された次の行が削除された
＞行番号となりますから。
＞
＞それから、For loopで使っている制御カウンタli_loop_cntを
＞ループ内でいじらないほうがよいのでは?
＞
＞ここではたいした差がないかもしれませんが、Dec li_loop_cnt
＞よりLongやIntegerのほうが計算が速いのでは?
＞

ご返答ありがとうございます。
dw_1.SetRow(li_loop_cou)
deleterow(0)
としたらうまくいきました。

Dec li_loop_cnt　は　Integer li_loop_cou の間違いでした。