Discussion :

[GuanoSlade]

bonjour!

je suis en BTS IG 2éme année actuellement en stage en entreprise.
je developpe une application avec gestion de base de donnée.
lors de la consultation des données, j'utilise un DBGrid pour afficher le contenu d'une table qui represente les choix de l'utilisateur.

lors de la création, la liste des choix choix disponibles est affichée ds un DBGrid avec multiselect, l'utilisateur peut dc choisir tt ce qu'il veu.

mon probleme est que pour modifier les données, j'utilise la meme fiche que pour la creation en préremplissant les champs avec les données existantes.
et je n'arrive pas a préselectionner ds le DBGrid de création les champs présents ds le DBGrid de consultation.

j'utilise ce 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
F_CreateAnnonce.DBG_Options.SelectedRows.Clear;
  with F_CreateAnnonce.DBG_Options.DataSource.DataSet do
   begin
     DisableControls;
     First;
     try
      while not EOF do
       begin
         for i:=0 to F_Main.DBG_Options.DataSource.DataSet.RecordCount -1 do
          begin
            if F_Main.DBG_Options.Fields[i].AsVariant= FieldByName('option').Value then
              F_CreateAnnonce.DBG_Options.SelectedRows.CurrentRowSelected := True;
            Next;
          end;
       end;
     finally
       EnableControls;
     end;
   end;
  F_CreateAnnonce.Show;

ca selectionne bien la premiere option mais ensuite je recoit une erreur que je n'arrive pas a resoudre :
"Violation d'acces a l'adresse 004E3D6D dans le module 'ImmoTahiti'. Lecture de l'adresse 00000000."
le débogueur delphi pointe sur la ligne que j'ai mise en rouge

merci de votre aide

PS: si vs comprenez pas tt, demandez moi et j'essayerai d'etre plus clair.

[GuanoSlade]

svp j'ai vraiment besoin d'aide, ce probleme paralyse mon projet et je perds du temps qui me manque deja, si vs avez pas la solution parfaite c'est pas grave, je demande just un truc pr me mettre sur la bonne voie.

merci d'avance.

[GuanoSlade]

g trouvé tout seul merci pr votre aide ( chais pas pkoi mais ca me fait marrer... )
mais bon comme je suis simpa et ke je ne souhaite a personne d'etre bolké comme je l'ait été, et ben je poste ma source qui marche:

je parcours en fait le dataset au lieu de parcourir le contenu du DBGrid, et ca marche plutot pas mal.

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
F_CreateAnnonce.DBG_Options.SelectedRows.Clear;
  with F_CreateAnnonce.DBG_Options.DataSource.DataSet do
   begin
     DisableControls;
     First;
     try
      while not EOF do
       begin
         F_Main.DBG_Options.DataSource.DataSet.First;
         while not F_Main.DBG_Options.DataSource.DataSet.Eof do
          begin
            if F_Main.DBG_Options.Fields[0].AsVariant= FieldByName('option').Value then
              F_CreateAnnonce.DBG_Options.SelectedRows.CurrentRowSelected := True;
            F_Main.DBG_Options.DataSource.DataSet.Next;
          end;
         Next;
       end;
     finally
       EnableControls;
     end;
   end;
  F_CreateAnnonce.ShowModal;