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

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，转发请保留这个地址，谢谢