DBで表示された項目名と違う値を割り当てるには (ID:127495)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 会社IDは数値みたいだからItemDataプロパティを使うとか。 Do Until rs.EOF Combo1.AddItem rs.Fields("Cmp_Name") '会社名 Combo1.ItemData(Combo1.NewIndex) = rs.Fields("Cmp_ID") rs.MoveNext Loop For i = 0 To Combo1.ListCount - 1 Debug.Print "会社名=" & Combo1.List(i) & _ "、会社ID=" & Format$(Combo1.ItemData(i), "000") Next i