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