投稿日 | : 2003/03/06(Thu) 21:17 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: MSFlexGridの複数検索 |
> thenのあとがちょっと分からないんですよ。
行単位で検索しヒットしたら、その行をもう一つのグリッドのMSFlexGrid2に順に
表示していきたいのです。
そのための Clip です。
> Clipとは?使ったことがなくMSDNで調べましたがいまいち分かりません。
調べたのならそこに使用例が書いていたと思うのですが、試しましたか?
面倒だから試さなかったのですか?
覚える気があるなら使用例等を色々いじって見て下さい。そうすれば理解ができるかと
思います。
ここのMSFlexGrid関係を一通り目を通して試してみれば大体の事はできるようになりますよ!
下記をよく理解して見て下さい。理解しないと(人頼みでは)応用ができませんよ
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