bonjour
jai deux table T1 et T2 ; T1 elle a 9 colonnes X1.......X9, T2 9 colonnes aussi J1....................J9 jaimerai remplir les colonnes de T2 seulement si la colonne
de T1 et remli ( elle nest pas vide ) je copie la colonne rempli dans lune des colonnes vide de T2 voila ce que jai fait :
ici le program verifi juste la 1er colonne et transfert les enregistrement sil trouve la colonne rempli (non vive) vers la 1er colonne de la table2 mais il ne s'arrete pas en plus il verifi juste la 1 er colonne de la table1 les autres colonnes il ne les verifi pas
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55 procedure TForm3.Button8Click(Sender: TObject); begin Table1.First; while not Table1.Eof do begin Table2.Insert; If Table1.FieldByName('x1').AsInteger <> 0 then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J1').AsInteger := Table1.FieldValues['X1']; end else if Table1.FieldByName('X2').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J2').AsInteger := Table1.FieldValues['X2']; end else if Table1.FieldByName('X3').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J3').AsInteger := Table1.FieldValues['X3']; end else if Table1.FieldByName('X4').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J4').AsInteger := Table1.FieldValues['X4']; end else if Table1.FieldByName('X5').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J5').AsInteger := Table1.FieldValues['X5']; end else if Table1.FieldByName('X6').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J6').AsInteger := Table1.FieldValues['X6']; end else if Table1.FieldByName('X7').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J7').AsInteger := Table1.FieldValues['X7']; end else if Table1.FieldByName('X8').AsInteger <> 0 Then begin Table2.FieldByName('Lignes').AsString := Table1.FieldValues['Lignes']; Table2.FieldByName('J8').AsInteger := Table1.FieldValues['X8']; end; table2.post; end;
est-ce que quelqu'un peu m'orienter ou m'aider svp ?
merci
Partager