プロが教える店舗&オフィスのセキュリティ対策術

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

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

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

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

A 回答 (1件)

フォームの読み込み時のイベントで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 = 商品コード
のように代入して行けば良いかと思います。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!