Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Variant and SafeArray
Message
De
30/09/2011 08:53:09
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01525234
Message ID:
01525243
Vues:
49
>>Hi
>>
>>I have been given this VB6 code as an example:
>>
>>
>>Dim AB As Object
>>Dim qt As Object
>>Dim aDate, aOpen, aHigh, aLow, aClose, aVolume, aOpenInt As Variant
>>
>>Set AB = CreateObject("Broker.Application")
>>Set QT = AB.Stocks(Symbol.Text).Quotations
>>
>>NumQuotes = QT.Retrieve(-1, aDate, aOpen, aHigh, aLow, aClose, aVolume, aOpenInt)
>>
>>List1.Clear
>>
>>For i = 0 To NumQuotes - 1
>> List1.AddItem (aDate(i) & "," & aOpen(i) & "," & aHigh(i) & "," & aLow(i) & "," & aClose(i) & "," & aVolume(i))
>>Next
>>
>>
>>
>>So it would appear they are passing arrays to the Retrieve() function. When try it I still get type mismatch.
>
>Didi you tried to use COMARRAY() function?

Hi Boris.

I just saw that in the help but I have no idea how to use it? Never even seen it before. Any suggestions?
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform