|
おはようございます。
>同じComboBox1のリストは同一番号が件数分並んでいるだけなんです
↑この意味がわかりませんが、下のコードはデータの追加に絶えうるようには
なっていませんね?で、最初に初期化ということなら・・・。
>そこで、いったんリストをクリアする方法にかきなおしたのですが
>
>Sub READ_DB1()
>Worksheets("工番").OLEObjects("ComboBox1") _
.object.Clear
'これです。
>★このコマンドをサポートしていませんのエラー
>intFF = FreeFile
>i = 1
> Open PA For Random As intFF Len = Len(TDB2)
> maxR = LOF(intFF) / Len(TDB2)
>Do While maxR + 1 > i
> Get #intFF, i, TDB2
> If TDB2.削除FLG = "" Then
> With Worksheets("工番").OLEObjects("ComboBox1").Object
> .AddItem TDB2.工事番号
> .List(i - 1, 1) = TDB2.工番2
> End With
> End If
> i = i + 1
>Loop
>Close #intFF
>End Sub
>になってしまいます。再三のお願いで申し訳ないのですが、再度ご教授お願い
>できませんでしょうか。
出かけてしまうので、これでうまくいかない場合は、
どなたかお願いします。
|
|