|
>Sub READ_DB1()
>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
>
で、なんとかいけたつもりだったんですが・・・・
同じComboBox1のリストは同一番号が件数分並んでいるだけなんです
そこで、いったんリストをクリアする方法にかきなおしたのですが
Sub READ_DB1()
Worksheets("工番").OLEObjects("ComboBox1") _
.Item.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
になってしまいます。再三のお願いで申し訳ないのですが、再度ご教授お願い
できませんでしょうか。
|
|