[sergtranes]

добрый день
хочу добавит к мултилинии 1 данное- индекс-Integer
вроде бы все просто и не ругается

Код:

[Выделить все]

Dim DataType(0 To 1) As Integer
Dim Data(0 To 1) As Variant

DataType(0) = 1001: Data(0) = "Profile builder"
DataType(1) = 1070: Data(1) = Pt
oMline.SetXData DataType, Data

а данных потом нет!

Код:

[Выделить все]

Dim xData(0 To 1) As Variant
Dim xType(0 To 1) As Integer


oMline.GetXData "", xType, xData
    str1 = CStr(xData(1) / 0)
    MsgBox "mLine indx = " & str1

видимо делаю какую-то ошибку ?

помогите..
спасибо

[AlexV]

присвоил:

Код:

[Выделить все]

 Dim intType(0 To 1) As Integer
 Dim varVal(0 To 1) As Variant
 intType(0) = 1001
 intType(1) = 1000
 varVal(0) = "Profile builder"
 varVal(1) = "чего то там"
 obj.SetXData intType, varVal

прочитал:

Код:

[Выделить все]

Dim VarType As Variant
Dim varVal As Variant
'****
obj.GetXData "Profile builder", VarType, varVal
msgbox CStr(varVal(1))

[sergtranes]

точно!
не правильное обьявление было в модуле, кот читал!
спасибо AlexV

[Agens]

Помогите!
Если надо заполнить 3, 4, 5 значение, каким будет
intType(2)? а дальше?
можно подробней?