Экспорт дополнительных параметров

Экспорт дополнительных параметров
Atom
2/26/2010
elcust


Добрый день. Вот решил добавить колонку в таблицу инструментов %
изменения от закрытия, добавил DDE сразу в ошибку вылетает "Заданное
приведение является недопустимым", чем можете помочь?!

Tags:


Thanks:


< 1 2 
Mikhail Sukhov

Avatar
Date: 2/26/2010
Reply


Ок. Но там должен быть текст ошибки... Ок, Вы просто пример
запускаете? Какой именно? Или своя программа?

Thanks:

elcust

Avatar
Date: 2/26/2010
Reply


Своя! Весь функционал уже задействовал кроме .algo, все работает
отлично без глюков! Текст ошибки только тот что написал и все.

Thanks:

Mikhail Sukhov

Avatar
Date: 2/26/2010
Reply


У Вас две колонки даты?

Вы подписывались на событие QuikTrader.ProcessDde....? Если да, то
могли бы текст обработчиков привести?

Thanks:

elcust

Avatar
Date: 2/26/2010
Reply


Одна колонка времени последней сделки.

Конечно подписывался, вот код события ProcessWellKnownDdeData

If NamePar.Contains("stock") Then
For Each obj In Arg2
Quote = obj.Key
If (Quote.ExtensionInfo Is Nothing) Then
Quote.ExtensionInfo = New Dictionary(Of Object,
Object)()
If (obj.Value.Count = 5) Then
Quote.ExtensionInfo("MainCount") =
IIf(CType(obj.Value(3), Integer) = 0, CType(obj.Value(4), Integer),
CType(obj.Value(3), Integer))
End If
End If
Next
ElseIf NamePar.Contains("security") Then
For Each obj In Arg2
Sec = obj.Key
If (Sec.ExtensionInfo Is Nothing) Then
Sec.ExtensionInfo = New Dictionary(Of Object,
Object)()
Sec.ExtensionInfo("LastPrice") =
CType(obj.Value(9), Double)
Else
Sec.ExtensionInfo("LastPrice") =
CType(obj.Value(9), Double)
End If
Next

Если я добавляю еще одну колонку, то срабатывает событие DdeError
Thanks:

Mikhail Sukhov

Avatar
Date: 2/26/2010
Reply


Что то явно не так с настройками таблицы. У меня как раз две колонки.

И так. Добавьте все колонки так, как есть в примере. Затем, проверьте.
Все должно работать. Иначе, какую-то пропустили. Затем, добавьте свою
в конец таблицы.

Это первое. Второе - Вы уверены, что бросается исключение не на Ваших
строчках:

CType(obj.Value(4), Integer)
CType(obj.Value(9), Double)

Можете обернуть это в try-catch.

Thanks:
< 1 2 

Attach files by dragging & dropping, , or pasting from the clipboard.

loading
clippy