关于Chart1.Series 参数的问题 |
答題得分者是:Victor4022
|
daybreak
一般會員 發表:14 回覆:15 積分:5 註冊:2003-11-05 發送簡訊給我 |
在一段程序中:
procedure TForm_xl_grap.Button4Click(Sender: TObject); var i:integer; mm:string; begin mshj:='shl'; i:=ComboBox2.ItemIndex; case i of 0: mshj:='shl'; 1: mshj:='je'; 2: mshj:='hsh'; 3: mshj:='dzjshsh'; 4: mshj:='lch'; 5: mshj:='mtime'; else mshj:='shl'; end; for i:=0 to Chart1.SeriesCount-1 do Chart1.Series[i].Clear; Form_chx.ADOQuery_xl.First; for i:=0 to Form_chx.ADOQuery_xl.RecordCount do begin showmessage(Inttostr(mtx)); Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString); Form_chx.ADOQuery_xl.Next; end; Chart1.Series[mtx].Active:=True; end;
里面用到的 Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString); 其中的mshl是一个字段参数,但是程序运行时出错。请各位大大帮忙,如何正确运用里面的参数。谢谢。 |
Victor4022
中階會員 發表:0 回覆:76 積分:90 註冊:2011-02-20 發送簡訊給我 |
您的迴圈範例似乎不是正確的: for i:=0 to Form_chx.ADOQuery_xl.RecordCount do
===================引 用 daybreak 文 章=================== 在一段程序中: procedure TForm_xl_grap.Button4Click(Sender: TObject); var i:integer; mm:string; begin mshj:='shl'; i:=ComboBox2.ItemIndex; case i of 0: mshj:='shl'; 1: mshj:='je'; 2: mshj:='hsh'; 3: mshj:='dzjshsh'; 4: mshj:='lch'; 5: mshj:='mtime'; else mshj:='shl'; end; for i:=0 to Chart1.SeriesCount-1 do Chart1.Series[i].Clear; Form_chx.ADOQuery_xl.First; for i:=0 to Form_chx.ADOQuery_xl.RecordCount do begin showmessage(Inttostr(mtx)); Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString); Form_chx.ADOQuery_xl.Next; end; Chart1.Series[mtx].Active:=True; end;
里面用到的Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString); 其中的mshl是一个字段参数,但是程序运行时出错。请各位大大帮忙,如何正确运用里面的参数。谢谢。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |