4D View v16

PV CELLS TO ARRAY

Accueil

 
4D View v16
PV CELLS TO ARRAY

PV CELLS TO ARRAY 


 

PV CELLS TO ARRAY ( zone ; direction ; colonne ; ligne ; tableau ; nombre ) 
Paramètre Type   Description
zone  Entier long in Zone 4D View
direction  Entier in 0 = Ligne; 1 = Colonne
colonne  Entier long in Numéro de la colonne de départ
ligne  Entier long in Numéro de la ligne de départ
tableau  Tableau in Nom de la variable de type tableau
nombre  Entier long in Nombre de cellules à utiliser

La commande PV CELLULES VERS TABLEAU remplit le tableau avec le contenu des cellules désignées par sens, colonne, ligne et nombre.

sens spécifie si la commande PV CELLULES VERS TABLEAU doit effectuer une copie de cellules contiguës dans le sens horizontal (0) ou vertical (1), à partir de la cellule définie par colonne et ligne.

Note : L'usage du paramètre sens est différent de celui du paramètre direction des commandes PV ALLER A CELLULE SUIVANTE et PV LIRE CELL LIBRE SUIVANTE, pour lesquelles la direction peut être dans n'importe quel sens. En ce qui concerne la commande PV CELLULES VERS TABLEAU, le sens est soit vers la droite (0 = ligne), soit vers le bas (1 = colonne).

Exemple  

Prenons pour exemple une zone 4D View incluse dans un masque de saisie de la table des clients : ce tableau, contenant 10 lignes au plus, servira à saisir ou modifier les contacts chez ce client. La zone de saisie est donc constituée de dix cellules disposées en colonne à partir de la cellule courante.

 ARRAY TEXT($TabContacts;0) `Tableau des noms de contacts
 C_LONGINT($Colonne;$Ligne`Coordonnées de la cellule de départ
 
 PV GET CURRENT CELL(Zone;$Colonne;$Ligne)
 
  `10 lignes maximum à partir de la cellule courante vers le bas
 PV CELLS TO ARRAY(Zone;1;$Colonne;$Ligne;$TabContacts;10)
 
 If(Size of array($TabContacts)#0)   `Quelque chose a été récupéré ?
    RELATE MANY([Clients]Code)   `Récupération des enregistrements liés
    DELETE SELECTION([Contacts])   `Purge de l'existant
  `Mise à jour des contacts (nouveaux, modifiés ou supprimés)
    ARRAY TO SELECTION($TabContacts;[Contacts]NomDuContact)   `Création des contacts
    APPLY TO SELECTION([Contacts];[Contacts]CodeClient:=[Clients]Code)   `Pour conserver le lien
    QUERY SELECTION([Contacts];[Contacts]NomDuContact="")   `Purge des contacts vides
    DELETE SELECTION([Contacts])
 End if



Voir aussi  

PV ARRAY TO CELLS
PV FIELD TO CELLS

 
PROPRIÉTÉS 

Produit : 4D View
Thème : PV Valeur de cellule
Numéro : 15909

 
HISTORIQUE 

Créé : 4D View 6.8

 
UTILISATION DE L'ARTICLE

4D View - Langage ( 4D View v16)