Discussion :

[Wazzouille]

Bonjour,

Nous penchons sur un problème avec deux de mes collègues qui parait simple, mais pour lequel nous ne trouvons pas de solution...

Le problème est que nous avons une TcxGrid qui est remplit via un TDataSource et un TADODataSet que nous appelerons ici ADOInfo.
L'ADO est alimenté par une vue qui provient de notre base de données MSSQL.

Lorsque l'on clique sur l'une des lignes de cette grille, on appel l'évènement OnDataChange du DataSource qui va mettre à jour un autre ADO qui pointe sur une des tables qui est utilisés par la vue et qui va, dans un TDBMemo affiché le champ que nous nommerons pour l'exemple : 'Remarque'.

L'utilisateur doit être capable de modifier le champ 'Remarque' via ce Mémo.

Jusque là, pas de soucis, tout marche bien.
Cependant, lorsque l'utilisateur à mit à jour ce champ 'Remarque', on doit aller dans la première grille et changer la couleur de la ligne si le champ 'Remarque' est vide.

Le problème est que l'on perd le focus de la ligne qui vient d'être modifié.

à l'heure actuelle, on agit ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure A.DBMemoExit(Sender : TObject);
    var 
      cbkInfo : TBookMark;
    begin
      if ADOMemo.Modified then begin
        ADOMemo.Post;
        cbkInfo := ADOInfo.GetBookMark;
        cxVue.DataController.DataSource := nil;
        ADOInfo.Requery();
        cxVUe.DataController.DataSource := DSInfo;
        ADOInfo.GoToBookMark(cbkInfo)
    end;
end;

Le problème c'est qu'après le requery, le bookmark nous emmène sur le numéro de la ligne, sauf qu'après le requery, les données ne sont plus dans le même ordre, et donc il focus une ligne 'au hasard'
Attention, comprenez bien que, ici, notre problème est que nous n'arrivons pas à changer la couleur de la ligne après la modification du champ remarque (ce pourquoi nous faisons un requery, qui pourrait être remplacer par une autre fonction)

Auriez-vous une solution pour ce problème ?

D'avance merci,
Wazzouille

[SergioMaster]

Bonjour,

les données ne sont plus dans le même ordre

ça c'est étrange mais peut être n'y a t-il aucun index ou ORDER BY de défini ?

donc plutôt qu'un Bookmark qui ne fonctionne pas pour une raison indéterminée (et ne fonctionnerai pas dans le cadre d'un environnement multi-utilisateur) il serait peut être mieux d'utiliser un LOCATE sur ces champs (clés de préférence) car il doit bien y avoir un/des index pour cette table ?

[Wazzouille]

Bonjour,

J'avais défini mon CommandText avec un ordre by mais mon collègue (beaucoup plus expérimenté en Delphi que moi) m'a dit de ne pas en mettre dans les commandText. Et il n'y a pas d'index non plus...
Avec l'order by cela marchait pas mal, sauf lorsqu'on faisait un tri par ordre alphabétique par exemple directement dans l'UI...

On a pensé a utiliser un Locate mais il y a pas mal de records dans la vue et c'est assez lent (à noter qu'on utilise une vue et qu'il n'y a pas de clé définie comme tel ou d'index)

[SergioMaster]

Re,
Je n'avais pas fait attention au fait qu'il s'agissait d'une vue (ceci expliquant donc le problème de l'ordre) et je ne suis pas expert loin s'en faut de ADO qui n'est pas ma tasse de thé!
Avec Firedac il est possible de créer des index temporaires sur le dataset mais avec ADODataset je serais bien incapable de le dire

mais sur ce que j'en lis :http://docwiki.embarcadero.com/RADSt...de_TADODataSet

Affectation d'index pour trier des enregistrements ou constituer la base de recherches à partir d'enregistrements. Outre les propriétés et méthodes d'index standard, vous pouvez utiliser la propriété Sort de TADODataSet pour effectuer des tris à partir d'index temporaires. Les recherches basées sur les index effectuées à l'aide de la méthode Seek utilisent l'index en cours.

c'est possible

[Wazzouille]

Bonjour,

J'ai pu expérimenter l'index, mais cela ne change pas grand chose (il se peut que je l'ai mal utilisé ^^')