PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → [WD12] copie d'une ligne d'une table
[WD12] copie d'une ligne d'une table
Débuté par Octel logiciels, 23 déc. 2008 10:50 - 3 réponses
#1
Posté le 23 décembre 2008 - 10:50
Bonjour,

Dans une table je souhaiterais dupliquer la ligne de l'enregistrement en cours dans un nouvel enregistrement en fin de table

Je pourrais sans doute le faire en récupérant le contenu de tous les champs et en les copiant dans un nouvel enregistrement , mais n'y aurait-il un moyen plus simple et rapide surtout que j'ai beaucoup de champs à copier

merci à tous
#2
Posté le 23 décembre 2008 - 11:50
Bonjour,
Très facile :

iOriLig = TableSelect(MaTable)
iNewLig = TableAjouteLigne(MaTable)
Matable[iNewLig] = MaTable[iOriLig]
#3
Posté le 18 septembre 2018 - 18:55
salut a vous...

moi je souhaite copier plusieurs lignes pour les mettre
dans une autre table d'une autre fenêtre...

Merci a vous
#4
Posté le 21 septembre 2018 - 12:35
abraham a écrit :
salut a vous...

moi je souhaite copier plusieurs lignes pour les mettre
dans une autre table d'une autre fenêtre...

Merci a vous


salut.
moins facile.

1ere fenetre :
déjà faut etre en mutislection
faire la multiselection (avec maj + clic ...)

puis un bouton "copier ma selection" :

maliste est une chaine = ""
pour toute ligne selectionnee i de matable
maliste += [RC] + matable[i]
fin

puis on copie dans le presse papier :

versprespapier(maliste)

dans 2eme fenetre
bouton "inserer ma selection":
//recup du pressepapier
machaine = PressePapier()

pour toute ligne maligne de machaine separee par RC
tableajoute(matable,maligne)
fin



je te passe les tests d'usage genre que le cotenu du presse papier est bien du texte formaté comme tu le veux etc...

là mon code suppose que les 2 tables ont la meme structure
sinon tu decomposes comme tu le veux :

au lieu de :
pour toute ligne maligne de machaine separee par RC
tableajoute(matable,maligne)
fin

pour toute ligne maligne de machaine separee par RC

nlig = tableajouteligne(matable)

matable[nlig].col1 = extraitchaine(maligne ,1,TAB)
matable[nlig].col2 = extraitchaine(maligne ,4,TAB)
matable[nlig].col5 = extraitchaine(maligne ,3,TAB)

//etc..


fin


cordialement
→ Revenir à WINDEV 2024