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

Я понял, что для инструментов ничего сверх неполучится вывести!!!
Жаль!!!

Почему не получиться? Вы добавили так, как написано в документации, в
конец?

Да

Видимо проблема в других колонках. Если Вы убирете добавленную, будет
все работать? Напишите, что за колонка.

И да, напишите сюда текст ошибки.

Я в первом посте написал:

Колонка "% изменения от закрытия", добавил в конец. DDE сразу в ошибку
вылетает "Заданное
приведение является недопустимым". У меня все классно работает без
этой колонки.

Я в первом посте написал:

Колонка "% изменения от закрытия", добавил в конец. DDE сразу в ошибку
вылетает "Заданное
приведение является недопустимым". У меня все классно работает без
этой колонки.

А какой текст ошибки?

Еще такой вопрос. У вас две колонки даты последней сделки?

http://stockmarketdotnet.blogspot.com/2009/11/quik-ecngtrading.html

Срабатывает событие ошибки DDE - Заданное приведение является
недопустимым

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

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

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

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

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

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

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

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

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

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

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