'Value of field 'A1' is out of range 是什麼錯誤? |
|
尚未結案
|
|
vivi666666
初階會員   發表：83 回覆：94 積分：35 註冊：2003-03-05 發送簡訊給我 |
在使用TQuery.FilteredFilterRecord 時出現
value of field 'A1' is out of range 不知為何?
1:在TQuery.Filtered設true,
2:在procedure TQuery.FilteredFilterRecord 設下條件
procedure TQuery.FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
inherited;
if (dataset.FieldByName('A1').AsFloat=0)
// if (qy1A.AsFloat=0) and (qy1D.AsFloat=0)
// and (qy1G.AsFloat=0) and (qy1J.AsFloat=0) THEN
and (dataset.FieldByName('D1').AsFloat=0)
and (dataset.FieldByName('G1').AsFloat=0)
and (dataset.FieldByName('J').AsFloat=0) then
Accept:=true
else Accept:=false;
end;
run時,會SHOWMESSAGE'Value of field 'A1' is out of range "
不知是為什麼?
|
|
longsanglin
初階會員 發表：10 回覆：57 積分：43 註冊：2002-04-23 發送簡訊給我 |
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
procedure TQuery.FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin //inherited;
if (dataset.FieldByName('A1').Asinteger=0)
and (dataset.FieldByName('D1').Asinteger=0)
and (dataset.FieldByName('G1').Asinteger=0)
and (dataset.FieldByName('J').Asinteger=0) then
Accept:=true
else Accept:=false;
end; 可能是类型不对吧！！！
供参考 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
|
vivi666666
初階會員 發表：83 回覆：94 積分：35 註冊：2003-03-05 發送簡訊給我 |
引言: procedure TQuery.FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin //inherited; if (dataset.FieldByName('A1').Asinteger=0) and (dataset.FieldByName('D1').Asinteger=0) and (dataset.FieldByName('G1').Asinteger=0) and (dataset.FieldByName('J').Asinteger=0) then Accept:=true else Accept:=false; end; 可能是类型不对吧！！！ 供参考 风花雪月 e梦情缘改成Asinteger=0,還是會SHOW 'Value of field 'A1' is out of range' |
|
wnhoo
高階會員 發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
vivi666666
初階會員 發表：83 回覆：94 積分：35 註冊：2003-03-05 發送簡訊給我 |
引言: 请问一下A1、D1、G1、J是什么类型的数据 风花雪月 e梦情缘DataSet['A1;C']:=SQLValue('select sum(' g_isnull '(GQ,0)),' 'sum(' g_isnull '(COST,0)) ' 'from MREC where YRMN=' AA(la_YYYYMM) ' and NSN=' AA(dataset.fieldbyname('NSN').AsString) ' and (select count(*) from LOC where ' 'STK=' AA('A') ' and ST=MREC.ST)>0 '); DataSet['D1']:=SQLValue('select sum(' g_isnull '(GQ,0)) from REC where 1=1 ' //IOTP=' AA('A') ' and (TRN=' AA('A') ' or TRN=' AA('D') ' )' ' and NSN=' AA(dataset.fieldbyname('NSN').AsString) ' and (select count(*) from LOC where ' 'STK=' AA('A') ' and ST=MREC.ST)>0 ' ' and DT >= ' AA(from) ' and DT < ' AA(to)); DataSet['G1']:=SQLValue('select sum(' g_isnull '(GQ,0)) from REC where ' ' (TRN=' AA('1') ' or TRN=' AA('R') ')' ' and NSN=' AA(dataset.fieldbyname('NSN').AsString) ' and (select count(*) from LOC where ' 'STK=' AA('A') ' and ST=MREC.ST)>0 ' ' and DT >= ' AA(from) ' and DT < ' AA(to)); DataSet['J']:=SQLValue('select sum(' g_isnull '(GQ,0)) from REC where ' ' (TRN=' AA('L') ' or TRN=' AA('K') ')' ' and NSN=' AA(dataset.fieldbyname('NSN').AsString) ' and (select count(*) from LOC 'STKTP=' AA('A') ' and ST=MREC.ST)>0 ' ' and DT >= ' AA(from) ' and DT < ' AA(to)) |
|
wnhoo
高階會員 發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
發表時間：2003-05-16 18:36:45
IP:203.69.xxx.xxx 未訂閱
系統時間：2024-06-27 0:31:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |