【结贴】[请求]赋值问题？**

水晶

目的:想将采购从表里的价格，将其值带入入库从表的单价字段里。  
下面是我写的代码,现在的问题是:我运行了一遍,在入库从表里,单价的字段值仍然是空的,我想问下我这样赋值有问题吗?

with datasetdetail do
        begin
          first;
          dyestuffno:=fieldbyname('dyestuffno').AsString.Trim;
          while not eof do
          begin
            qrycb.close;
            qrycb.CommandText:='select a.price,a.amount,a.dyestuffno,a.inamount from  dye_indetail a join dye_inmain b on a.inid=b.inid '
                              +'where b.purchaseid='+sysutils.QuotedStr(PURCHASEIDEd.Text.Trim)
                              +'and a.dyestuffno='+sysutils.QuotedStr(dyestuffno);
            qrycb.open;
            qrycb.edit;
            qrycb.FieldByName('price').AsFloat:=fieldbyname('bargaining').AsFloat;
            qrycb.FieldByName('amount').AsFloat:=qrycb.FieldByName('INAMOUNT').AsFloat*fieldbyname('bargaining').AsFloat;
            next;
          end;
        end;

lixy

没有提交。。

水晶

提交了

lixy

1楼代码没有

水晶

目的:想将采购从表里的价格，将其值带入入库从表的单价字段里。  
下面是我写的代码,现在的问题是:我运行了一遍,在入库从表里,单价的字段值仍然是空的,我想问下我这样赋值有问题吗?

with datasetdetail do
        begin
          first;
          dyestuffno:=fieldbyname('dyestuffno').AsString.Trim;
          while not eof do
          begin
            qrycb.close;
            qrycb.CommandText:='select a.price,a.amount,a.dyestuffno,a.inamount from  dye_indetail a join dye_inmain b on a.inid=b.inid '
                              +'where b.purchaseid='+sysutils.QuotedStr(PURCHASEIDEd.Text.Trim)
                              +'and a.dyestuffno='+sysutils.QuotedStr(dyestuffno);
            qrycb.open;
            qrycb.edit;
            qrycb.FieldByName('price').AsFloat:=fieldbyname('bargaining').AsFloat;
            qrycb.FieldByName('amount').AsFloat:=qrycb.FieldByName('INAMOUNT').AsFloat*fieldbyname('bargaining').AsFloat;
            next;
          end;
        end;

lixy

循环里面
qrycb.appleupdate
没写提交语句。

水晶

那句添加下去会提示出错??

lixy

qrycb.CommandText:='select a.price,a.amount,a.dyestuffno,a.inamount from  dye_indetail a join dye_inmain b on a.inid=b.inid '
                              +'where b.purchaseid='+sysutils.QuotedStr(PURCHASEIDEd.Text.Trim)
                              +'and a.dyestuffno='+sysutils.QuotedStr(dyestuffno);
你这个是关联表，必须写更新选项，或者变成单表。否则无法更新数据。
http://bbs.justep.com/forum.php?mod=viewthread&tid=14510  类似这个6楼，你要设更新的选项，而不是插入的。

lixy

你这个赋值还不如直接写update语句来的容易，用query执行就行了，比你1楼简单多了。
拼update语句

水晶

Query1.UpdateOptions.InsertSQL := 'Insert into FLOWAND Values (:Guid, :FDate, :FDisplayName, :FOperator)';  能否麻烦你帮我讲解下,这个更新设置:里面的参数具体是代表什么的.新手,谢谢了.