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

名前

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

本文 DBに 会社ID 部署ID 部署名 001 100 総務課 （001はA社 002はB社 003はC社） 001 200 人事課 001 300 経理課 002 100 総務課 002 200 人事課 003 200 人事課 003 300 経理課 とあるんですね。 Do Until rs.EOF strPostID(intNumber) = rs.Fields("Pst_ID") intNumber = intNumber + 1 rs.MoveNext Loop にして、strPostIDに部署IDを入れてやると、 strPostID(0)には「100」 strPostID(1)には「200」 strPostID(2)には「300」・・・と strPostID(6)まで、できてしまうんですよ。 それはいいとして、 strPostID(部署コンボボックス.ListIndex)としたら、 例えばC社の人事課と選んだとします 部署名のコンボボックスはListIndexが「0」になります (会社名をC社にしたら、部署は登録されてる部署名しかでないようにしてるから。 (部署名のコンボボックスには人事課と総務課しかでない)。 部署名のコンボボックスはListIndexが「0」だから、 strPostName = strPostID(部署コンボボックス.ListIndex)の式だと、 strPostName の変数に「100」が入っちゃうんです。 ほんとは人事課だから「200」としたいのです。 おバカな質問かもしれませんがご指導ください