Discussion :

[yasha-o]

Salut
J'ai a nouveau un petit soucis et je réfléchi depuis une demi et je vois pas trop quoi faire. J'ai crée 2 tables, une affichant le nom d'une société et l'autre affichant les sociétés lié à celle de la 1er table. Donc avec le code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
rqt_nom_client.pClient=SAI_Client
TableSupprimeTout(TABLE_Rqt_nom_client)
TableSupprimeTout(TABLE_Rqt_nom_ste)
HExécuteRequête(rqt_nom_client)
HLitPremier(rqt_nom_client)
TANTQUE PAS HEnDehors(rqt_nom_client)
	TableAjouteLigne(TABLE_Rqt_nom_client, rqt_nom_client.Client)
	HLitSuivant(rqt_nom_client)
FIN

la 1er table va m'afficher les sociétés dont le nom contient ce que j'ai taper dans mon champ saisie ensuite celui ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
rqt_chr_nomcli.psocieté=SAI_Client
HExécuteRequête(rqt_chr_nomcli)
HLitPremier(rqt_chr_nomcli)
TANTQUE PAS HEnDehors(rqt_chr_nomcli)
	TableAjouteLigne(TABLE_Rqt_nom_ste, rqt_chr_nomcli.Societe)
	HLitSuivant(rqt_chr_nomcli)
FIN

va me remplir ma seconde table selon la ligne sélectionner de la 1er
Mais la sa se corse mon tuteur souhaite que sa fonctionne dans l'autre sens c'est à dire que je peux taper dans mon champ saisi le nom d'une société de la 2iem table et selon la ligne sélectionner afficher l'entreprise qui y est lié, et la je me suis pris une claque
J'espère avoir été assez précis

[yasha-o]

J'ai pu arranger mon blem plus ou moins bien, voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
PROCEDURE replissage_tabCli()
rqt_nom_client.pClient=SAI_Client
TableSupprimeTout(TABLE_Rqt_nom_client)
TableSupprimeTout(TABLE_Rqt_nom_ste)
HExécuteRequête(rqt_nom_client)
HLitPremier(rqt_nom_client)
TANTQUE PAS HEnDehors(rqt_nom_client)
	TableAjouteLigne(TABLE_Rqt_nom_client, rqt_nom_client.Client)
	HLitSuivant(rqt_nom_client)
FIN
 
//Ajouter les clients dont le filtre client entré correspont à une société
rqt_chr_selonste.ch_par_ste=SAI_Client
HExécuteRequête(rqt_chr_selonste)
HLitPremier(rqt_chr_selonste)
TANTQUE PAS HEnDehors(rqt_chr_selonste)
	TableAjouteLigne(TABLE_Rqt_nom_client, rqt_chr_selonste.Client)
	HLitSuivant(rqt_chr_selonste)
FIN
 
TableTrie(TABLE_Rqt_nom_client, "Client")
n_i est un entier
ch_Client est une chaîne= Client[TABLE_Rqt_nom_client..Occurrence]
POUR n_i= TABLE_Rqt_nom_client..Occurrence-1 A 1 PAS -1
	SI Client[n_i]= ch_Client ALORS
		TableSupprime(TABLE_Rqt_nom_client, n_i)
	SINON
		ch_Client= Client[n_i]	
	FIN
FIN
 
// Remplir la table société correspondant à la ligne sélectionnée dans la table Client
ExécuteTraitement(TABLE_Rqt_nom_client, trtSélection)

J'espère que sa servira à quelqu'un ^^

Sinon j'ai un autre petit soucis tout bête quand je fais TableSelect(NomDeMaTable) sa me renvoi juste le numéro de la ligne de sélection et je voudrais avoir le contenu j'aurai besoin d'une petite lumière

[emorestin]

Bonsoir,

Réponse:
TableSelect(NomDeMaTable[NomDeMaTable])