MSFlexGridにACCESSの検索結果を表示したい！

質問

ACCESSを検索後、wkTblにレコード情報を保持し、その後そのデータをMSFlexGridに表示させたいです。

MSFlexGridの項目の作り方すら分かりません。
項目は　商品コード　商品名　上代　下代　　です。

MSFlexGridの使用については全くの初心者です。まずは、表示→消去がしたいのです。

何卒よろしくお願い致します。

回答No.1

O_cyan · ベストアンサー

フォームの読み込み時のイベントでMSFlexGridの初期設定をします。
フォームをForm1・MSFlexGridをMSFlexGrid1とした場合
Private Sub Form_Load()
　　Dim lngCountI As Long
　　Form1.Move 0, 0, 8640, 4630

　　With MSFlexGrid1
　　　　.Move 150, 150, 8170, 2850
　　　　.Rows = 10
　　　　.Cols = 5
　　　　.FixedRows = 1
　　　　.FixedCols = 1
　　　　.Row = 0
　　　　.ColWidth(0) = 430
　　　　.ColWidth(1) = 550
　　　　.ColWidth(2) = 1800
　　　　.ColWidth(3) = 1000
　　　　.ColWidth(4) = 1000
　　　　.RowHeight(0) = 350
　　　　.Col = 1: .Text = "No"
　　　　.CellAlignment = flexAlignCenterCenter
　　　　.Col = 2: .Text = "商品コード"
　　　　.CellAlignment = flexAlignCenterCenter
　　　　.Col = 3: .Text = "商　品　名"
　　　　.CellAlignment = flexAlignCenterCenter
　　　　.Col = 4: .Text = "上　代"
　　　　.CellAlignment = flexAlignCenterCenter
　　　　.Col = 5: .Text = "下　代"
　　　　.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
　 Text1.Text = ""
End Sub
こんな感じです。
後は
データ読込表示の処理をwkTblから
.Col = 2
.Text = 商品コード
のように代入して行けば良いかと思います。