Re: Champ accessibile par TAB dans une table

Posté par R&B le 22/12/2006 13:49:01
L'idée est d'intercepter l'entrée sur les lignes paires

1 interception de l'entrée dans une ligne
2 vérifier qu'elle est paire
3 passer à la suivante

// Entrée en saisie d'une ligne de la table
// Ligne paire ?
nInd est un entier = TableSelect(MoiMême)
SI modulo(nInd,2)=1 ALORS
	// Pas en fin de table ?
	SI nInd <TableOccurrence(MoiMême) ALORS 
		TableSelectPlus(MoiMême,nInd+1) // Passe à la ligne suivante
	SINON
		TableSelectPlus(MoiMême,nInd-1) // Passe à la ligne suivante
	FIN
FIN

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4834&post_id=20123