List 7-66　FormProductフォームのSetFieldListプロシージャ

---

  1： Private Sub SetFieldList()
  2：     ' COMBO_SEARCHFIELDコンボボックスにDGrid_Productデータグリッドに
  3：     ' 表示されている列名をコピーする
  4：     Dim i As Long
  5：     
  6：     COMBO_SEARCHFIELD.Clear
  7：     For i = 0 To DGrid_Product.Columns.Count - 1
  8：         If DGrid_Product.Columns(i).Visible Then
  9：             COMBO_SEARCHFIELD.AddItem DGrid_Product.Columns(i).Caption
 10：             COMBO_SEARCHFIELD.ItemData(COMBO_SEARCHFIELD.NewIndex) = i
 11：         End If
 12：     Next
 13： End Sub