问问题好艰难呀,半天了没人回答,是不是我分少了,我没分给了呀,用完了

Question

cfh := QuerySelectCfHw['cf'];
hwh := QuerySelectCfHw['hw'];
insert into PrintT2(cfm,hw) values(cfh,hwh)为什么会出错,说是在此上下问中不允许使用'cfh',此处只允许使用常量\表达市\变量,不允许使用列名.
cfh不是列名呀
  

Answer 1

没看明白什么意思，你上面的语句到底在什么环境下执行。cfh := QuerySelectCfHw['cf'];
hwh := QuerySelectCfHw['hw'];
－－－－－－－－－－－－这个是delphi（其他）的语句insert into PrintT2(cfm,hw) values(cfh,hwh)
－－－－－－－－－－ 数据库脚本语言怎么能在一起执行呢

Answer 2

'insert into PrintT2(cfm,hw) values('+QuotedStr(cfh)+','+QuotedStr(hwh)+')'

Answer 3

delphi里的语句,我写册是SQL.Add('')里的SQL参数

Answer 4

QuerySelectCfHw.First;
    while not QuerySelectCfHw.eof do
    begin
      cfh := strToInt(QuerySelectCfHw['cf']);
      hwh := StrToInt(QuerySelectCfHw['hw']);
      with frmdm1.QZgw do
      begin
        Close;
        SQL.Clear;
        SQL.Add(format('select max(wsd) as wsd  from timeT where (bz=1 or bz=2) and cf=%d and hw=%d',[cfh,hwh]));
        Open;
        zgwd:=strToFloat(format('%4.1f',[fields[0].asfloat]));//  fields[0].asfloat;
      end;
      with frmdm1.QZdw do
      begin
        Close;
        SQL.Clear;
        SQL.Add(format('select min(wsd) as wsd  from timeT where (bz=1 or bz=2) and cf=%d and hw=%d',[cfh,hwh]));
        Open;
        zdwd:=strToFloat(format('%4.1f',[fields[0].asfloat]));//fields[0].asfloat;
      end;
      with frmdm1.QPjw do
      begin
        close;
        SQL.clear;
        SQL.Add(format('select avg(wsd) as wsd  from timeT where (bz=1 or bz=2) and cf=%d and hw=%d',[cfh,hwh]));
        open;
        Pjwd:=strToFloat(format('%4.1f',[fields[0].asfloat]));//fields[0].asfloat;
      end;      with frmdm1.QprintCS do
      begin
        Close;
        SQL.Clear;
        SQL.Add(format('select wsd  from timeT where bz=13 and cf=%d',[cfh]));
        Open;
        csd:=strToFloat(format('%4.1f',[fields[0].asfloat]));//fields[0].asfloat;
      end;
      with frmdm1.QprintCW do
      begin
        Close;
        SQL.Clear;
        SQL.Add(format('select avg(wsd) as wsd  from timeT where bz=3 and cf=%d',[cfh]));
        Open;
        cwd:=strToFloat(format('%4.1f',[fields[0].asfloat]));//fields[0].asfloat;
      end;
      with frmdm1.QXz do         //限值
      begin
        close;
        SQL.clear;
        SQL.Add(format('select * from settingT where cf=%d and hw=%d',[cfh,hwh]));
        open;
        wdsxd :=strToFloat(frmDM1.QXz['wdsx']);
        wdxxd := strToFloat(frmDM1.QXz['wdxx']);
        sdsxd := strToFloat(frmDM1.QXz['sdsx']);
        sdxxd := strToFloat(frmDM1.QXz['sdxx']);
      end;      with QueryGernPrint do
      begin        Close;
        SQL.Clear;
        SQL.Add('delete from PrintT2');
        execsql;        Close;
        SQL.Clear;
        SQL.Add('insert  PrintT2 values(:cfh,:hwh,:pjwd,:zgwd,:zdwd,:csd,:cwd,:wdsxd,:wdxxd,:sdsxd,:sdxxd,:dtime1)');
        QueryGernPrint.ParamByName('cfh').AsInteger := cfh;
        QueryGernPrint.ParamByName('hwh').AsInteger := hwh;
        QueryGernPrint.ParamByName('pjwd').AsFloat := pjwd;
        QueryGernPrint.ParamByName('zgwd').AsFloat := zgwd;
        QueryGernPrint.ParamByName('zdwd').AsFloat := zdwd;
        QueryGernPrint.ParamByName('csd').AsFloat := csd;
        QueryGernPrint.ParamByName('cwd').AsFloat := cwd;
        QueryGernPrint.ParamByName('wdsxd').AsFloat := wdsxd;
        QueryGernPrint.ParamByName('wdxxd').AsFloat := wdxxd;
        QueryGernPrint.ParamByName('sdsxd').AsFloat := sdsxd;
        QueryGernPrint.ParamByName('sdxxd').AsFloat := sdxxd;
        QueryGernPrint.ParamByName('dtime1').AsFloat := dtime1;
        execsql;
        QueryGernPrint.Edit;
      end;
      
      QueryGernPrint.ApplyUpdates;
      QuerySelectCfHw.Next;
    end;
为什么只查了一条记录进去,大家帮我看看

Answer 5

是不是你的QuerySelectCfHw只有一条记录啊?

Answer 6

不是呀,我showMessagｅ了一下，有１２８条呢

Answer 7

上面代码结构是这样，方便大家分析：
QuerySelectCfHw.first;
while not QuerySelectCfHw.eof do
begin
　　计算或查询记录字段值；
    插入一条记录；
    QuerySelectCfHw.next;
end;

Answer 8

结果怎么只插了一条记录进去，我在程序里showMessagｅ了一下，QuerySelectCfHw结果有　１２８条呢

Answer 9

借宝地一用:欢迎加入delphi群(37792189)

Answer 10

with QueryGernPrint do
      begin        Close;
        SQL.Clear;
        SQL.Add('delete from PrintT2');
        execsql;这里出问题了。你每次插入记录前都把表清空了。最后当然是只有一条了！

Answer 11

QuerySelectCfHw是用的PrintT2表吗?

Answer 12

rangwoxiao(让我笑) ,你说的太好了,我当时头搞晕 了,怎么犯这么低级的错误,该打.zhao_yong(Learn) ,QuerySelectCfHw用的不是PrintT2表,是另外一张表