| 投稿日 | ： 2004/04/28(Wed) 10:57 |
| 投稿者 | ： Rs |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: コンボボックスAddItem時に重複するデータを登録しない |
レスありがとうございます。
ちょっと余計なこと書きすぎてわかりずらかったですかね＾＾；
結論から言うと、単純にコンボボックスに登録するときに
既に登録されたデータとこれから登録するデータを重複させない
という話なんですが
With CmbTan
For i = 0 To .ListCount
If .List(i) = CStr(Val(Data(12, a))) Then
Exit For
End If
.AddItem (Val(Data(12, a)))
Next i
End with
るしぇさんのこの部分のコードが知りたかったのですが、
このコードで行くと、CmbTan.List(i)をFor文で調べている最中に.AddItemがあるので
重複データが見つかるまで、CmbTanに追加されてしまうような気がするので、るしぇさん
のコードを参考に自分で考えてみます。
ありがとうございました。