| |
▼ガッツ さん：
>やはりこの質問は、レスが付きにくいですね；；
>というか、自分の質問がそっけなさすぎたのですかね？スミマセン。
>
>それで、自分で少し調べた結果を書きますと、
>
>Form_Loadの所に以下の様に書きました。
>
>
>Dim lngCountI As Long 'ループ用カウンタ
>
> 'MSFlexGrid の初期設定
> With flxGrid
> .Rows = 10 '行の総数（固定行含む）
> .Cols = 8 '列の総数（固定列含む）
> .FixedRows = 1 '固定行の数 Rowsより１以上少ない事
> .FixedCols = 1 '固定列の数 Colsより１以上少ない事
> .Row = 0
> .ColWidth(0) = 500 '列幅
> .ColWidth(1) = 550
> .ColWidth(2) = 1800
> For lngCountI = 3 To 7
> .ColWidth(lngCountI) = 1000
> Next lngCountI
> .RowHeight(0) = 350 '行の高さ
> .CellAlignment = flexAlignCenterCenter
> .Col = 1: .Text = "列名0"
> '該当セルを 中寄／中寄 表示
> .CellAlignment = flexAlignCenterCenter
> .Col = 2: .Text = "列名1"
> .CellAlignment = flexAlignCenterCenter
> .Col = 3: .Text = "列名2"
> .CellAlignment = flexAlignCenterCenter
> .Col = 4: .Text = "列名3"
> .CellAlignment = flexAlignCenterCenter
> .Col = 5: .Text = "列名4"
> .CellAlignment = flexAlignCenterCenter
> .Col = 6: .Text = "列名5"
> .CellAlignment = flexAlignCenterCenter
> .Col = 7: .Text = "列名6"
> .CellAlignment = flexAlignCenterCenter
> .Col = 0
> For lngCountI = 1 To .Rows - 1
> .RowHeight(lngCountI) = 350 '行の高さ
> .Row = lngCountI
> .Text = lngCountI '行番号を表示
> Next lngCountI
> .Col = 1: .Row = 1
> 'カレントセルを反転表示（強調表示すればカレントセルが解りやすい）
> .FocusRect = flexFocusNone
> .HighLight = flexHighlightAlways
> End With
>
>
>こういう風に、全て直打ちでMSFlexGridに書いているのですが、
>テーブルの内容や、クエリの内容を表示させる事を知っている方
>もしくは、できないんじゃないなど、知っている方
>よろしければ、お願いします。
間違ってたらゴメンナサイ。
FixedRows, FixedColsにTextを表示させている様に
（例えば列名１〜６）、Table又はQueryを基に
Recordsetを開いてRecordsetのFieldを使えば
内容は表示されるはずです。
例えば：
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
MsFlexGrid1.Text = RecordsetName!Field
Loop等が使えます。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
