VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/10/25(Mon) 20:56
投稿者： 朔
Ｅメール：
ＵＲＬ：
タイトル： ComboBoxについて

VB6.0 HP-UX11(oracle8i)

データベースから取得したデータをComboBoxに設定します。
データベースからは、商品名と商品コードを取得し、Listに
名前を、ItemDataにコードを設定しています。

実際には、色々と条件をつけてデータを取得しているのですが、
取り出した商品コードの値が数字の場合は、ItemDataにコードが
設定されるのですが、コードが英数字となると、ItemDataに0（ゼロ）
が設定され、商品コードを設定することができません。
どうすれば、両方の場合の値をを上手く、設定することができますか。

つまり、
みかん=AAA001
りんご=AAA002
なし=AAA003
いちご=000001
ぶどう=000002
そのた=AAAAAA
ということにしたいのですが、


------------------------------------------------------
    Dim I  As Integer

    Combo1.Clear
    Combo1.AddItem "", 0
    Combo1.ItemData(0) = 0
    I = 1

    /* データベースとの処理（省略）*/

    Do Until objDs.EOF
       Combo1.AddItem objDs("SYOUHIN_NM").Value, I
       Combo1.ItemData(I) = objDs("SYOUHIN_CD").Value
       objDs.DbMoveNext
       I = I + 1
    Loop

    Combo1.ListIndex = 1

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -