莫名，各位大虾

nxy_918

Private Function DjWriteNo(en As AcadEntity) As Boolean '图幅号写入索引图框的对象数据库
Dim objAcadMap As AcadMap
Dim objProj As Project
Dim ODtb As ODTable
Dim ODRecord As ODRecord,
Dim ODrcs As ODRecords
Dim ret As Boolean
DjWriteNo = True
Set objAcadMap = ThisDrawing.Application.GetInterfaceObject("AutocadMap.Application")
Set objProj = objAcadMap.Projects(ThisDrawing)
objProj.ProjectOptions.DontAddObjectsToSaveSet = True
Set ODtb = objProj.ODTables.Item("cc")
Set ODrcs = ODtb.GetODRecords
ret = ODrcs.Init(en, True, True)
If ret = True Then
If ODrcs.IsDone = ture Then
Set ODrcs = Nothing '该句不可剩
Set ODRecord = ODtb.CreateRecord
ODRecord.Item(0).Value = "dfdf"
ODtb.GetODRecords.Update ODRecord '此处通不过
End If
End If
End Function

efan2000

没有环境，无法测试。 看帮助是说只能更新当前记录，那么可能是这样的： Set ODRecord = ODtb.GetODRecords.Record
ODRecord.Item(0).Value = "dfdf"
ODtb.GetODRecords.Update ODRecord 自己试试对不对，多看看帮助吧。

nxy_918

efan2000 其实这些帮助我都看了n遍了


在不行的话我只能把原有纪录上删除，在重新赋新值了