サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/09/13 05:37
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[グリッド関係][][] *
* キーワード：MSHFlexGrid,フレックスグリッド,カスタムソート,複数列, *
***********************************************************************************
元質問：MSFlexGridの複数検索 - マツモト 2003/03/06-13:33 No.3008
MSFlexGrid1に以下のような値が入っているものがあるとします。
┌───┬─────┬───┬───┐
│ＡＡＡ│マンション│築３年│３ＤＫ│
├───┼─────┼───┼───┤
│ＢＢＢ│アパート │築８年│３ＤＫ│
├───┼─────┼───┼───┤
│ＣＣＣ│マンション│築５年│２ＤＫ│
└───┴─────┴───┴───┘
□マンション (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
 |
