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

投稿日: 2002/09/18(Wed) 17:22
投稿者ゆう(U)
Eメール
URL
タイトルMSFlexGridで検索

手順は
1.検索結果表示用のMSFlexGridの初期化
※ここはお好みで設定してください

2.データ行の先頭から最後まで繰り返す
※For Ro = .FixedRows To .Rows - 1
   対象のセルが検索対象なら
※  For Co = .FixedCols To .Cols - 1
※    If Text1.Text = .TextMatrix(Ro, Co) Then
    対象の行の内容を検索結果へ追加する
※ここで下の2点でデータのコピーをします
    列のFor Nextを抜ける
※複数の列が対象になっている場合、1列3列と対象になると
 複数の同じデータが追加されるので、列のForを抜けた方が
 良いです

3.対象のデータが存在するなら
  フォーカスを検索結果のグリッドへ移動する
※基本的なメソッドです、ヘルプで調べてね


でOKですね・・・


行のデータをそのまま追加するには、
「AddItem メソッド」が便利です。

追加内容の取得には・・・
「Clip プロパティ」かな?
「TextMatrix プロパティ」でもOK


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

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

- Web Forum -