- Код: Выделить всё
Dim so1 As ListItem
i = 0
l2.ListItems.Clear
If Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MoveFirst
End If
Do While Adodc1.Recordset.EOF = False
Set so1 = l2.ListItems.Add(1, , Adodc1.Recordset.Fields(0).Value)
so1.SubItems(1) = Adodc1.Recordset.Fields(1).Value
so1.SubItems(2) = Adodc1.Recordset.Fields(2).Value
Adodc1.Recordset.MoveNext
i = i + 1
Loop
для listview 5.0 все канает а для 6.0 ошибка type mismatch
В чем дело где я ошибаюсь.
В проекте использую и 5 и 6 версию на разных формах может быть из за этого так как если я создаю отдельный проект с 6.0 то этот же код ошибки не выдает
мистика
