Discussion :

[Oluha]

Salut

J'ai encore un petit problème avec mon dbgrid...
J'ai fais une procédure qui permet de redimentionner automatiquement la largeur des colonnes en fonction du contenu et du titre.
La première fois que je charge des valeurs dans mon dbgrid, ca marche impec. Par contre si j'effectue une nouvelle requête qui change le contenu du dbgrid, j'ai l'erreur :

indice de grille hors limite

Cela vient de ma procédure qui redimentionne car ca fonctionne si je l'enlève. Le soucis c'est que je n'arrive pas à résoudre le problème dans ma procédure.

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
procedure ResizeColumns();
var
J,MaxTextWidth, fieldwith : Integer;
begin
   Form1.listecli.datasource.DataSet.DisableControls;
   // On fait toutes les colonnes du TDBGrid
   For J:=0 to Form1.listecli.FieldCount-1 do
   begin
      // Initialisation
      MaxTextWidth := Form1.listecli.Canvas.TextWidth(form1.listecli.Columns[J].Title.Caption);
      // On recupere la longueur la plus grande contenu dans la colonne
      Form1.listecli.DataSource.DataSet.First;
      while not form1.listecli.DataSource.DataSet.Eof do
      begin
          fieldwith := Form1.listecli.Canvas.TextWidth(form1.listecli.datasource.DataSet.Fields.Fields[J].AsString);
          if (fieldwith > MaxTextWidth) then MaxTextWidth := fieldwith;
          Form1.listecli.DataSource.DataSet.Next;
      end;
      // On applique la nouvelle taille 
      If MaxTextWidth > 0 then form1.listecli.Columns[J].Width := MaxTextWidth + 10;
   end;
   Form1.listecli.DataSource.DataSet.First;
   Form1.listecli.datasource.DataSet.EnableControls;
end;

Quelqu'un aurait une idée à ce sujet ?
J'ai beau essayer de modifier des trucs, je ne vois pas ce qui cloche

Merci

[Oluha]

J'ai oublié la procédure qui rempli le dbgrid et appel resizecolumns

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
procedure TForm1.BrechercherClick(Sender: TObject);
begin
     //BreinitmodifClick(form1);
     // on vérifie que les champs sont renseignés
     if (fichier.value = '') or (CBrecherche.Text = '') or (Edmotcle.Text = '') then
     begin
          rechercherclic := false;
          showmessage('Veuiller renseigner le fichier, le type de recherche et le mot clé');
     end
     else
     begin
          rechercherclic := false;
          // on recherche un client suivant les critèques donnés
          Qlistecli.SQL.clear;
          Qlistecli.Active := false;
          Qlistecli.sql.add('select IDCLI,ADR1,ADR2,ADR3,ADR4,ADR5,CP,VILLE,PAYS,TEL,FAX,TILT,FDI');
          Qlistecli.sql.add('from Acappella where CODE = '+fichier.Value);
          if CBrecherche.Text = 'Id client' then
          begin
               Qlistecli.sql.add('and IDCLI = '+Edmotcle.Text);
          end
          else if CBrecherche.Text = 'Nom / Prénom' then
          begin
               Qlistecli.sql.add('and ADR1 like ''%'+Edmotcle.Text+'%''');
          end
          else
          begin
               Qlistecli.sql.add('and CP like '''+Edmotcle.Text+'%''');
          end;
          Qlistecli.sql.add('order by IDCLI');
          Qlistecli.active := true;
          Cmodifpays.KeyValue := listecli.DataSource.DataSet.Fields.Fields[8].AsString;
          modifcp.KeyValue := listecli.DataSource.DataSet.Fields.Fields[6].AsString;
          query_cp_activee := true;
          Qtrouveville.close;
          Qtrouveville.sql.clear;
          Qtrouveville.sql.add('select distinct (convert(char(33),LIBLOC) +''  (code INSEE : ''+ INSEE +'')'') as VILLE FROM loccp');
          Qtrouveville.sql.add('where LIBLOC = '''+ listecli.DataSource.DataSet.Fields.Fields[7].AsString +''' ORDER BY (convert(char(33),LIBLOC)+''  (code INSEE : ''+ INSEE +'')'')');
          Qtrouveville.open;
          modifville.KeyValue := Qtrouveville.fieldbyname('VILLE').asstring;
          rechercherclic := true;
          ResizeColumns();
          //finresize := true;
     end;
end;