但我现在的程序怎么就定不了位呢,有没有更好的方法啊? if datamodule1.table_outplate.Locate('factorycode;batchno;model;platesort;platecolor', VarArrayOf([''+str1+'',''+str2+'',''+str3+'',''+str4+'',''+str5+'']), [])=true then begin datamodule1.table_outplate.Active:=true; int1:=datamodule1.table_outplate.FieldByName('incomingquality').AsInteger; datamodule1.table_outplate.Edit; datamodule1.table_outplate.FieldByName('incomingquality').AsInteger:=int1+int; datamodule1.table_outplate.Post; end else begin exit; end; 我的'factorycode;batchno;model;platesort;platecolor'这几个字段都不是主键,我修改数据的时候,老是修改表中第一条记录,而不是所要求的记录,怎么回事啊
if datamodule1.table_outplate.Locate('factorycode;batchno;model;platesort;platecolor', VarArrayOf([str1,str2,str3,str4,str5]), [])=true then begin 去掉那些引号试试,注意你的值要确实有才可以
if datamodule1.table_outplate.Locate('factorycode;batchno;model;platesort;platecolor', VarArrayOf([''+str1+'',''+str2+'',''+str3+'',''+str4+'',''+str5+'']), [])=true then
begin
datamodule1.table_outplate.Active:=true;
int1:=datamodule1.table_outplate.FieldByName('incomingquality').AsInteger;
datamodule1.table_outplate.Edit;
datamodule1.table_outplate.FieldByName('incomingquality').AsInteger:=int1+int;
datamodule1.table_outplate.Post;
end else
begin
exit;
end;
我的'factorycode;batchno;model;platesort;platecolor'这几个字段都不是主键,我修改数据的时候,老是修改表中第一条记录,而不是所要求的记录,怎么回事啊
VarArrayOf([str1,str2,str3,str4,str5]), [])=true then
begin
去掉那些引号试试,注意你的值要确实有才可以