VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 2003/12/17(Wed) 20:43
投稿者Tomo
Eメール
URL
タイトル追加質問です

追加ですみませんが、

>         ' 内側 Loop
>         Do Until objKey.AtEndOfStream
>             fndKey = objKey.ReadLine
>             fndItem = Filter(fndItem, fndKey, False, vbTextCompare)
>         Loop

この時、Filter で省かれた時点で Loop を抜けたい場合どうすれば
抜けれますでしょうか?
恐らく配列になっている為だと思いますが、If 文で "" や Null 等
指定して試しましたがエラーになって仕舞い上手くいきません。
弾かれた時点で抜けれれば大分処理を短縮出来そうなのですが。
(Keyword が数百単位になる為)

宜しくお願いします。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -