現在VB6.0　ACCESS2000を使用しています。
まだまだ、始めたばかりで、勉強中ですが、よろしくお願いします。

MSHFlexGridにデータを表示させていますが、データが無い場合はグリッドの幅を０(表示しない)よう
にした
いと思っています。
データは
NO、チーム、名前、ポジション、趣味１、趣味２、趣味３、趣味４、趣味５

このデータでグリッド中に、趣味にはデータが無い場合があるので、その列のグリッドは非表示にし
たいと思
っています。
ループ処理で、やってみたのですが、なかなかうまくいかなく、ご教授お願いします。
よろしくお願いします。

>このデータでグリッド中に、趣味にはデータが無い場合があるので、
>その列のグリッドは非表示にしたいと思っています。

Acccessデータが100件あって、
　趣味１には100件中80件、
　(趣味１にある80件のうち)趣味２には100件中60件、
　(趣味２にある60件のうち)趣味３には100件中40件、
　(趣味３にある40件のうち)趣味４には100件中20件
　(趣味４にある20件のうち)趣味５には100件中 0件、というデータだったとすると、

一応、趣味１にデータが無いレコードが20件あるので、
残りの80件はデータがあっても、その列(縦)は表示しない！と伝わり兼ねないんだけど・・・。
実際は、趣味５のみ列を非表示にするんだよね？

--
>ループ処理で、やってみたのですが、なかなかうまくいかなく、ご教授お願いします。

うまくいかない・・・。うまくいかない・・・・。
もう少し別の表現でどううまくいかないかを表せるとレスがつきやすいかと。

大概、掲示板に投稿する人は、いわゆる、うまくいかない現象でお困りの方ですから
それを相談できないことには・・・。

早速ご返事ありがとうございます。

> 一応、趣味１にデータが無いレコードが20件あるので、
> 残りの80件はデータがあっても、その列(縦)は表示しない！と伝わり兼ねないんだけど・・・。
> 実際は、趣味５のみ列を非表示にするんだよね？

全くその通りです。　趣味５のみの列を非表示にしたいのです。

> 大概、掲示板に投稿する人は、いわゆる、うまくいかない現象でお困りの方ですから
> それを相談できないことには・・・。

そうですね、すいません。
どう記述してよいかを悩んでいます。

Dim I as intger
Dim I2 as intger

’趣味１〜５までのループ
Do until ????

’データが入力されているかどうかのループ
Do While MSHFlexGrid1.TextMatrix(I2, I) = ""


I2 = I2 + 1
Loop

MSHFlexGrid1.ColWidth(0) = 0
Loop

ここまでは何とか自分なりに考えてやってみましたが、
�@「データが入力されているまで」のループ文がわかりません(これがわからないので前に進まない)
�Aこの方法以外のやり方があるのでしょうか？
すいませんが、よろしくお願いします。

いろいろ、考えて実際にはうまくいきました(データが少ないと言うのもあります)が
もう少しシンプルな記述方法があればお願いします。

Dim lngCount As Long
lngCount = rs.RecordCount

Do Until Trim(MSHFlexGrid1.TextMatrix(I, 7)) = "" Or I = lngCount

I = I + 1

Loop

If I = lngCount Then

    With MSHFlexGrid1
　　　　’趣味１の列を非表示(０)にする
        .ColWidth(7) = 0
    End With
Else
    With MSHFlexGrid1
　　　　’趣味１の列の幅の設定をする
        .ColWidth(7) = 1425
     End With
    
End If

この作業を5回繰り返しました。

よろしくお願いします。

Do 〜 LoopよりはFor分の方がよくないかな。
    Dim Row As Long
    Dim Col As Long
    Dim varWidth As Variant

    '趣味列の幅指定
    varWidth = Array(1000, 1000, 1000, 1000, 1000)
    With MSHFlexGrid1
        '趣味1は7から始まる
        For Col = 7 To .Cols - 1
            '必要行数分ループ
            For Row = .FixedRows To .Rows - 1
                If Len(Trim(.TextMatrix(Row, Col))) <> 0 Then
                    '何か入力されているならFor分(Row)を抜ける
                    Exit For
                End If
            Next
            '何か入力されていたか?
            If Row >= .Rows Then
                .ColWidth(Col) = 0
            Else
                .ColWidth(Col) = varWidth(Col - 7)
            End If
        Next
    End With

もっとスマートにやるならSQL文で趣味1〜趣味5までの文字列の最大幅を持ってきてしまうとか。
コーディングの行数は減りそうだけど処理速度としてはどうか・・・
SELECT max(len(trim(趣味1))),
       max(len(trim(趣味2))),
       max(len(trim(趣味3))),
       max(len(trim(趣味4))),
       max(len(trim(趣味5)))
FROM テーブル名;

GODさん　MIMIさん

ご返事ありがとうございます。
For文でやってみたいと思います。

SELECT文では処理速度が…と言うことなので、これからデータの量が、どうなるかわかんないので、
For文でやってみたいと思います。

>この終了条件にI = lngCountがありますが、
>一番最後の行にだけ何か入力があった場合、このループととおらずに
>セルの幅０になっちゃわないでしょうか・・・
実際、やってみます。

来週になってしまいますが、一度試してみます。
少しの間、連絡(報告)できないですが、ありがとうございました。

試してみてはいないのですが、
みんみんさんのコードを見てみると
> Do Until Trim(MSHFlexGrid1.TextMatrix(I, 7)) = "" Or I = lngCount
この終了条件にI = lngCountがありますが、
一番最後の行にだけ何か入力があった場合、このループととおらずに
セルの幅０になっちゃわないでしょうか・・・
気のせいかも・・・・勘違いかな？
私もGODさんのようにdo whileではなく for〜Next使うかな・・・
と思いました。

> この作業を5回繰り返しました。
この分も楽になると思います。
がんばってくださいね

GODさん　ぷぷさん　ありがとうございました。

バッチリできました！

LoopとColの辺りでちょっとややこしくて、数値や行数、列数を変えて実行してうまくいきました。

ありがとうございました。