請問我是否可直接用ClientDataSet做資料排序(order by field),而不用SQL,也就是直接在Client端更改排序,而不動到資料庫 一般都是下SQL指令,但是我必須在Client端做動態排序,並且我使用的是Mybase(XML),好像也不行下SQL指令,謝謝指教

直接改ClientDataSet的IndexFieldNames就可以了

Hi:    如果要在 Client 端，對 ClientDataSet 遞增排序，使用 ccchen 大大的方法即可。    在此，再提供一個遞減排序的方法 1.對 ClientDataSet 的每一個欄位增加 IndexDefs，並將 Options 的 ixDesceding 設為 True(也可以用程式自行產生)

procedure TQueryForm.CDS_QRY_FORECASTSAfterOpen(DataSet: TDataSet);
var
    I   : Word;
begin
    CDS_QRY_FORECASTS.IndexDefs.Clear;
    FOR I := 0 TO CDS_QRY_FORECASTS.FieldDefs.Count - 1 DO
        BEGIN
            TRY
                CDS_QRY_FORECASTS.IndexDefs.Add(CDS_QRY_FORECASTS.FieldDefs.Items[I].Name   '_INDEX',CDS_QRY_FORECASTS.FieldDefs.Items[I].Name,[ixDescending]);
            EXCEPT
                NULL;
            END;
        END;
end;

2.觸發程式進行排序

procedure TQueryForm.DBGrid_FORECASTSTitleClick(Column: TColumn);
var
    ORDER_FIELD : String;
    I           : Word;
begin
    Screen.Cursor := crHourGlass;
    ORDER_FIELD := Column.FieldName;
    FOR I := 0 TO DBGrid_FORECASTS.Columns.Count - 1 DO
        DBGrid_FORECASTS.Columns.Items[I].Title.Caption := GridTitle[I];
    IF CDS_QRY_FORECASTS.IndexName = ORDER_FIELD   '_INDEX' THEN
        BEGIN
            CDS_QRY_FORECASTS.IndexFieldNames := ORDER_FIELD;
        END
    ELSE
        BEGIN
            CDS_QRY_FORECASTS.IndexName := ORDER_FIELD   '_INDEX';
        END;
    Screen.Cursor := crDefault;
end;

3.因我的 ClientDataSet 中，有些是計算欄位，必須避免掉，否則會產生錯誤訊息，故以此方法避免 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman