diaoduquery4.Close;
diaoduquery4.DatabaseName:='dddb';
diaoduquery4.SQL.Clear;
diaoduquery4.SQL.Add('select * from '+jbzname+'对应表');
diaoduquery4.Open;
while diaoduquery4.Eof=false do
begin
if(diaoduquery4.FieldByName('材料名称').AsString=diaoduquery5.FieldByName(t).AsString) and (length(diaoduquery5.FieldByName(t).AsString)>0) then
begin diaoduquery6.Close;
diaoduquery6.DatabaseName:='jbzdb';
diaoduquery6.SQL.Clear;
diaoduquery6.SQL.Add('select * from 配比 where 任务编号='''+edit25.Text+'''');
diaoduquery6.Open;
diaoduquery6.FieldByName(diaoduquery4.fieldbyname('对应字段').AsString).AsString:= diaoduquery4.FieldByName('材料名称').AsString;
diaoduquery4.DatabaseName:='dddb';
diaoduquery4.SQL.Clear;
diaoduquery4.SQL.Add('select * from '+jbzname+'对应表');
diaoduquery4.Open;
while diaoduquery4.Eof=false do
begin
if(diaoduquery4.FieldByName('材料名称').AsString=diaoduquery5.FieldByName(t).AsString) and (length(diaoduquery5.FieldByName(t).AsString)>0) then
begin diaoduquery6.Close;
diaoduquery6.DatabaseName:='jbzdb';
diaoduquery6.SQL.Clear;
diaoduquery6.SQL.Add('select * from 配比 where 任务编号='''+edit25.Text+'''');
diaoduquery6.Open;
diaoduquery6.FieldByName(diaoduquery4.fieldbyname('对应字段').AsString).AsString:= diaoduquery4.FieldByName('材料名称').AsString;
diaoduquery6.edit
后面加
diaoduquery6.Edit;
diaoduquery6.DatabaseName:='jbzdb';
diaoduquery6.SQL.Clear;
diaoduquery6.SQL.Add('select * from 配比 where 任务编号='''+edit25.Text+'''');
diaoduquery6.Open;
diaoduquery6.edit;
diaoduquery6.FieldByName(diaoduquery4.fieldbyname('对应字段').AsString).AsString:= diaoduquery4.FieldByName('材料名称').AsString;
这样子可以么
我想用它更新数据库中的数据 看来不行 看来得用update了 啊