帮看看这段代码 ( 积分: 24 )

with datamodule1.ADOQ_main_ycf do
begin
close;
sql.Text:='select top 2 * from punish order by pu_id DESC';
open;
end;


stream:=TstringStream.Create('');
pic:=TJpegImage.Create;
TblobField(datamodule1.ADOQ_main_wcf.FieldByName('bl_car_peccancyPic')).SaveToStream(stream);
stream.Position:=0;
datamodule1.ADOQ_main_ycf.Edit;
TblobField(datamodule1.ADOQ_main_ycf.FieldByName('pu_car_peccancyPic')).LoadFromStream(stream);
datamodule1.ADOQ_main_ycf.Post;
stream.Free;
pic.Free;
比如说以前DBGrid里有两条记录。也就是这两条记录有各自的图片。比如在存里一个记录。上面的两个图片全变成当前的图片了。？？？？ 所有分了

with datamodule1.ADOQ_main_ycf do
begin
close;
sql.Text:='select top 2 * from punish order by pu_id DESC';
open;
end;


stream:=TstringStream.Create('');
pic:=TJpegImage.Create;
TblobField(datamodule1.ADOQ_main_wcf.FieldByName('bl_car_peccancyPic')).SaveToStream(stream);
stream.Position:=0;
datamodule1.ADOQ_main_ycf.Edit;
TblobField(datamodule1.ADOQ_main_ycf.FieldByName('pu_car_peccancyPic')).LoadFromStream(stream);
datamodule1.ADOQ_main_ycf.Post;
stream.Free;
pic.Free;
比如说以前DBGrid里有两条记录。也就是这两条记录有各自的图片。比如在存里一个记录。上面的两个图片全变成当前的图片了。？？？？ 所有分了