多米诺数据库往某个域里写数据

var

doc: IDocument;
docfile: IEmbeddedObject;


doc := doccur;


docid := doc.GetItemValue('BoxID');
tempstr:=docid[0];
if Trim(tempstr)='' then
begin

docid := doc.UniversalID;
tempname := docid;//docid[0];
//
//doc.AppendItemValue('BoxID','213123123123') ;
doc.ReplaceItemValue('BoxID',tempname) ;
doc.Save(True,True,True);
end;

本文地址：http://www.xszlo.com/article/2012-12-10/7620.html，转发请保留这个地址，谢谢