PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 2024 → [WD12] copie d'une ligne d'une table
[WD12] copie d'une ligne d'une table
Iniciado por Octel logiciels, dez., 23 2008 10:50 AM - 3 respostas
#1
Publicado em dezembro, 23 2008 - 10:50 AM
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
Publicado em dezembro, 23 2008 - 11:50 AM
Bonjour,
Très facile :

iOriLig = TableSelect(MaTable)
iNewLig = TableAjouteLigne(MaTable)
Matable[iNewLig] = MaTable[iOriLig]
#3
Publicado em setembro, 18 2018 - 6:55 PM
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
Publicado em setembro, 21 2018 - 12:35 PM
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
→ Voltar para WINDEV 2024