tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
MSFlexGridの複数検索(VB6.0) ( No.0 )  [親スレッドへ]
日時: 2007/09/13 05:37
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[グリッド関係][][]                                                  *
* キーワード:MSHFlexGrid,フレックスグリッド,カスタムソート,複数列,        *
***********************************************************************************

元質問:MSFlexGridの複数検索 - マツモト 2003/03/06-13:33 No.3008

MSFlexGrid1に以下のような値が入っているものがあるとします。
┌───┬─────┬───┬───┐
│AAA│マンション│築3年│3DK│
├───┼─────┼───┼───┤
│BBB│アパート │築8年│3DK│
├───┼─────┼───┼───┤
│CCC│マンション│築5年│2DK│
└───┴─────┴───┴───┘

□マンション (CheckBox1)  □3DK (CheckBox2)
チェックボックスに当てはまる条件を検索し、例えば両方ともチェックしたら
AAAAの行のみをMSFlexGrid2に表示するといったようにしたいのですが。


-----------------------------------------------------------------------------
Re^3: MSFlexGridの複数検索 - 花ちゃん 2003/03/06-21:17 No.3033
-----------------------------------------------------------------------------

Private Sub Command1_Click()
    MSFlexGrid2.Rows = 1
    Dim Ro     As Long
    Dim Co     As Long
    Dim myStr  As String
    Dim N      As Long
    With MSFlexGrid1
        For Ro = .FixedRows To .Rows - 1
            .Row = Ro
            .Col = 0
            .ColSel = .Cols - .FixedCols
            myStr = .Clip
            If InStr(myStr, Text1.Text) > 0 And _
                            InStr(myStr, Text2.Text) > 0 Then
                With MSFlexGrid2
                    .Row = N
                    .AddItem " ", .Row + 1
                    .Row = N + 1
                    .Col = 0
                    .ColSel = .Cols - .FixedCols
                    .Clip = myStr
                    myStr = ""
                    N = N + 1
                End With
            End If
        Next Ro
    End With
End Sub



 [スレッド一覧へ] [親スレッドへ]