Народ!!! Обьясните пожалуйста как настроить грамотно combobox из Microsoft forms 2.0. Чтоб он отображал данные из одной таблицы и подставлял за кулисами цифры в другуб таблицу....
Ниже приведён код, он вроде работает, то есть заролняется данными, НО не отображает ничего (((
Dim MyArray()
ReDim MyArray(2, Link.rssqlMens.RecordCount)
Link.rssqlMens.MoveFirst
For i = 1 To Link.rssqlMens.RecordCount
MyArray(0, i-1) = Link.rssqlMens.Fields(0)
MyArray(1, i-1) = Link.rssqlMens.Fields(1)
Link.rssqlMens.MoveNext
Next i
comID_str.ColumnCount = 2
comID_str.Column() = MyArray
comID_str.BoundColumn = 1
comID_str.TextColumn = 2
Set comID_str.DataSource = Link
comID_str.DataMember = Police
comID_str.DataField = ID_str
comID_str.ColumnWidths = "0;10"