如何添加多个附件

zzrq

我现在写的添加附件只能够添加一个附件，怎么样才能让他添加多个附件呢？
procedure TWWJGXX.savefileWWJGFJ(afilename:string);
var
IOldSQL: String;
begin
         DataSetWWJGFJ.Close;
         IOldSQL:=DataSetWWJGFJ.SQL.Text;
         DataSetWWJGFJ.SQL.Text:='select * from FJ where ID is null';
         DataSetWWJGFJ.Open;
         DataSetWWJGFJ.Edit;
         Tblobfield(DataSetWWJGFJ.FieldByName('FJ')).LoadFromFile(afilename);
         DataSetWWJGFJ.FieldByName('FJM').asstring:=Business.System.SysUtils.ExtractFileName(afilename);
         DataSetWWJGFJ.ApplyUpdates;
         DataSetWWJGFJ.SQL.Text:=IOldSQL;
         DataSetWWJGFJ.refresh;
end;

这个有什么错误？？？

zfang

1、如果是要添加多个附件，就不应该是 dataset.edit而是dataset.append
2、看楼主的做法是把附件直接存到数据表中的，一般不建议这么做。因为时间长了，数据库会比较庞大。（假如非要这么做，那么对于附件表 一定做主从，即不要一次性打开附件表的数据，而是只取其中的一条或者几条。因为打开的数据集中包含大字段，会严重影响速度）

对于附件的存储一般建议利用平台的文档关联（文档服务器）或者自己通过ftp进行上传下载。

zzrq

我试试 谢谢！

zzrq

我还想问问，如何让列表上点击添加之后就转换到下一个页面，而不是在本页面添加？

zfang

下一页面是 指？
没明白。

zzrq

就是这样的