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