請問各位前輩 為何我所畫出來的圖日期是從 2004/1/7 開始而不是從 2003/12/15開始 x:日期 y:數據 資料 1001 2004/1/7    -0.3018 1001 2004/2/3     0 1001 2004/4/5    -4.375  1002 2003/12/15   0 1002 2004/1/2     0 1002 2004/2/3     0 1002 2004/4/5    -5.5224    程式碼如下

var
  i,cnt:Integer;
  Series:TLineSeries;
  list:TStringList;
  spfno:string;
begin
  cnt:=0;
  list:=TStringList.Create;
  try
    with ADOQuery1 do
    begin
      while not Eof do
      begin
        if spfno <> FieldByName('pfno').AsString then
        begin
          spfno:= FieldByName('pfno').AsString;
          cnt:=cnt 1;
          list.Add(FieldByName('pfno').AsString);
        end;
        Next;
      end;
    end;
    ADOQuery1.First;        for i :=0 to cnt-1 do
    begin
      Series := TLineSeries.Create (DBChart1);
      Series.ParentChart := DBChart1;
      Ado:=TADOQuery.Create(nil);
      Ado.Name:='ADO' IntToStr(i 1);
      Ado.Recordset:=ADOQuery1.Recordset;
      Ado.Filtered:=False;
      Ado.Filter:='pfno = ' QuotedStr(Trim(list.Strings[i]));
      Ado.Filtered:=true;
      Series.DataSource := Ado;
      Series.Title:=list.Strings[i];
      Series.XLabelsSource := 'dt';
      Series.YValues.ValueSource:='frate';
    //  Series.Marks.Visible:=true;
    //  Series.Marks.Style:=smsValue;
      DBChart1.AddSeries (Series);
    end;
  finally
    FreeAndNil(list);
//    FreeAndNil(Ado);
  end;

BOSS您好： 或许您的ADOQuery1查询语句没按日期排序吧 ——行径窄处，留一步与人行——