| 投稿日 | ： 2004/04/28(Wed) 08:25 |
| 投稿者 | ： Rs |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： コンボボックスAddItem時に重複するデータを登録しない |
いつもお世話になっております。
早速質問なんですが、コンボボックスのAdditemで登録するときに重複するデータを
登録しない処理をしたいのですが・・・。
現状のコードでは
Private Sub TxtA_KeyDown(KeyCode As Integer, Shift As Integer)
'Enterのタイミングで実行
If KeyCode = vbKeyReturn Then
For a = 0 To MaxRec
If Val(Data(1, a)) = Val(TxtA.Text) Then
CmbTan.AddItem (Val(Data(12, a)))
End If
Next a
End If
End Sub
となっております。
MaxRec（格納されたデータの最大数）、Data(,)（配列の変数Data）
配列変数Dataの(1,a)とTxtAに入力されたデータを比べて、同じであった場合に
コンボボックスにData(12,a)番目のデータをAdditemで登録しています。
コードで教えてもらえると非常に助かります＾＾；
宜しくお願いします。