PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Traduction VB --> Windev
Traduction VB --> Windev
Iniciado por dsenoussaoui, 27,mar. 2006 18:14 - 2 respuestas
#1
Publicado el 27,marzo 2006 - 18:14
Une bonne âme peut-elle aider à traduire ce code SVP:

Dim oFunction As Object
Set oFunction = CreateObject("OCX_De_Base")

Dim RFC_READ_TABLE As Object
Set RFC_READ_TABLE = oFunction.Add("RFC_READ_TABLE")

Dim TOPTIONS As Object
Set TOPTIONS = RFC_READ_TABLE.Tables("OPTIONS")

TOPTIONS.AppendRow
TOPTIONS(1, "TEXT") = "zone texte à appliquer"

Mille merci d'avance.
#2
Publicado el 27,marzo 2006 - 18:28
Salut

iFunction est un objet OLE Automation "OCX_De_Base"
iRFC_READ_TABLE est un objet OLE Automation dynamique

iRFC_READ_TABLE = iFunction>>Add("RFC_READ_TABLE")

Pour le reste, ca dépend, si c'est un tableau peu de chance d'y arriver (en tout cas je ne connais pas la syntaxe) sinon c'est de la déclaration classique

@+
Maax°(51)°
#3
Publicado el 27,marzo 2006 - 18:59
Merci pour ta réponse.
Le soucis est :

TOPTIONS.AppendRow
TOPTIONS(1, "TEXT") = "zone texte à appliquer"

La syntaxe TOPTIONS(1, "TEXT") n'est pas reconnue par Windev. Il considère TOPTIONS comme une procédure???.

Y-a-t'il moyen de passer par de l'indirection?
→ Volver a WINDEV 2024