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


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

Теги:


Спасибо:


< 1 2 
Mikhail Sukhov

Фотография
Дата: 26.02.2010
Ответить


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

Спасибо:

elcust

Фотография
Дата: 26.02.2010
Ответить


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

Спасибо:

Mikhail Sukhov

Фотография
Дата: 26.02.2010
Ответить


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

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

Спасибо:

elcust

Фотография
Дата: 26.02.2010
Ответить


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

Конечно подписывался, вот код события 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
Спасибо:

Mikhail Sukhov

Фотография
Дата: 26.02.2010
Ответить


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

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

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

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

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

Спасибо:
< 1 2 

Добавить файлы через драг-н-дроп, , или вставить из буфера обмена.

loading
clippy