List 7-31　FormCustomerフォームのSetFieldListプロシージャ

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