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

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.dfwlt.com/forum.php?mod=viewthread&tid=241&extra=page%3D1，转发请保留这个地址，谢谢