PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Traduction VB --> Windev
Traduction VB --> Windev
Started by dsenoussaoui, Mar., 27 2006 6:14 PM - 2 replies
#1
Posted on March, 27 2006 - 6:14 PM
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
Posted on March, 27 2006 - 6:28 PM
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
Posted on March, 27 2006 - 6:59 PM
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?
→ Go back to WINDEV 2024