DbgridEh1、Clientdataset 点击标题排序的错误，或者如何实现这种功能？

Question

DbgridEh1、Clientdataset 点击标题排序的错误，或者如何实现这种功能？我用的是在：procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);begin
Unit3.DataModule3.ClientDataSet2.addindex(Column.FieldName,Column.FieldName,[],Column.FieldName);
Unit3.DataModule3.ClientDataSet2.indexname:=Column.FieldName;end;
但是多次点击几个不同的标题，排序之后，再刷新Dbgrideh1就出现错误，提示某字段不是排序字段之类的提示，不知道如何解决，或者怎么实现点击标题实现排序？

Answer 1

Unit3.DataModule3.ClientDataSet2.addindex(Column.FieldName,Column.FieldName,[],Column.FieldName);
Unit3.DataModule3.ClientDataSet2.indexname:=Column.FieldName排序前 先删除ClientDataSet2原先的index