如何动态滴更换DBChart X和Y的Source 它说总是找不到字段,采用ADO数据集的

                            
usese            Series;                                 
         
    private              
                                    MySeries:TBarSeries;              
            public              
            end;              
         
  var              
            Form1:         TForm1;              
         
  implementation              
         
  {$R         *.dfm}              
         
  procedure         TForm1.FormCreate(Sender:         TObject);              
  begin              
            MySeries:=TBarSeries.Create(Self);              
            MySeries.ParentChart         :=         DBChart1;                                                                                      
  end;              
                                        //先执行Button1.Click后再执行   Button2.Click;        
  procedure         TForm1.suiButton1Click(Sender:         TObject);              
  begin                    
    With   MySeries   do                                                                                                                                                                                
            begin              
                            DataSource     :=     ADOTable1;              
                            Title     :=     'ProductID';              
                            XLabelsSource     :=     'ProductName';              
                            YValues.ValueSource     :=   'UnitPrice';                        
                                                      //同个数据集切换成   UnitsInst   字段也不行              
                            CheckDataSource;              
            end;              
  end;              
         
  procedure         TForm1.suiButton2Click(Sender:         TObject);              
  begin              
            With         MySeries         do              
            begin              
                            MySeries.Active:=false;              
                            MySeries.Clear;              
                            DataSource   :=   ADOTable2;          
                                      //切换成不同的数据集的字段说OTable2ProductID找不到              
                            Title   :=   'OrderID';              
                            XLabelsSource   :=     'OrderID';              
                            YValues.ValueSource   :=     'SubtoTal';              
                            CheckDataSource;              
                            MySeries.Active:=True;              
            end;              
  end;              
     
  两个问题      
  1     在同一数据集中为什么有的字段却说找不到呢?明明在DBGride能显示出来而且!      
  2     在不同数据集上为什么对X和Y的Source付值了,还是存着上个数据集的Source呢?

查看回复