コンボボックスで

質問

あるサンプルソースのコンボボックスのリストの内容を変えたいのですがどこを変えて良いのかわかりません。教えてください。
On Error GoTo ERR_ROUTIN
IERR_HANDLER.Push "cmbS_FIELD_Click"

If PUSRFIELD(cmbS_FIELD(Index).ListIndex).FLG = True Then

lblSENTAKU(Index).Visible = True
cmbSENTAKU(Index).Visible = True

lblATAI(Index).Visible = False
txtATAI(Index).Visible = False

Select Case PUSRFIELD(cmbS_FIELD(Index).ListIndex).FIELDNM
Case "GROUPCD"
cmbSENTAKU(Index).Clear
cmbSENTAKU(Index).AddItem "", intCNT
For intCNT = 1 To UBound(PUSRGROUP)
cmbSENTAKU(Index).AddItem PUSRGROUP(intCNT).strGROUPNM, intCNT
Next
Case "LOCATIONCD"
cmbSENTAKU(Index).Clear
cmbSENTAKU(Index).AddItem "", intCNT
For intCNT = 1 To UBound(PUSRLOCAT)
cmbSENTAKU(Index).AddItem PUSRLOCAT(intCNT).LOCATNM, intCNT
Next
Case "ENTUSER"
cmbSENTAKU(Index).Clear
cmbSENTAKU(Index).AddItem "", intCNT
For intCNT = 1 To UBound(PUSRTANTO)
cmbSENTAKU(Index).AddItem PUSRTANTO(intCNT).TANTONM, intCNT
Next
End Select

回答No.1

cyoki_par · ベストアンサー

ソースではなく、プロパティを調べれば良いと思います。

お礼

ありがとうございました。
解決しました。

補足

プロパティのどこでしょうか？
ItemData　それとも　List　ですか？
両方白紙なのですが・・・。

回答No.2

fortranxp

簡単に考えて
1.コマンドボタンとテキストボックスを用意する。

Private Sub Command1_Click()

Combo1.AddItem Text1.Text

End Sub
でCombo1にTextboxより追加できますよね。

お礼

ありがとうございました。
解決しました。