多米诺数据库往某个域里写数据
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,转发请保留这个地址,谢谢 来源: https://www.cnblogs.com/xszlo/archive/2013/03/06/2945823.html