取_identify值居然失败了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

是这样的，我要把_identify作为记录的唯一标识，我在明细表增加了一个叫ID的字段，然后在点击“审核”按钮之后，执行下面代码：

Tables("采购单").Current("审核") = "已审核"

Tables("采购单").Current.Locked = True

Tables("采购单").Current.Save()

For Each cdr As DataRow In dr.DataRow.GetChildRows("采购明细")

CDR.LOCK

CDR.SAVE

cdr（“ID”）=Tables("采购明细").Current("_identify")

然后发现ID值都是1？？按照帮助的说法，_identify只有在保存之后才会生效，按道理这时候记录应该已经得到正确的ID值了啊？

然后再改下，重复循环一次吧，代码改成：

Tables("采购单").Current("审核") = "已审核"

Tables("采购单").Current.Locked = True

Tables("采购单").Current.Save()

For Each cdr As DataRow In dr.DataRow.GetChildRows("采购明细")

CDR.LOCK

CDR.SAVE

For Each cid As DataRow In dr.DataRow.GetChildRows("采购明细")

Dim id As Integer = Tables("采购明细").Current("_identify")

cid("ID")=id

cid.save

msgbox(id)

但是ID的值仍然是1？？？我错在哪里？？

Tables("采购单").Current是指"采购单"表当前选中的行，选一个不同的行，还是1吗？

蓝老师好，采购单是主表，主表已经有唯一标识了。

需要加ID的是采购明细，明细是子表，ID在子表，我的代码要表达的意思是，建立一个主表后，增加子表记录，然后保存的时候，通过循环，把子表新增的明细记录的_identify的值写入ID字段。

Tables("采购明细").save

For Each cid As DataRow In dr.DataRow.GetChildRows("采购明细")

cid("ID")=cid("_identify")

Tables("采购明细").save

搞定！谢谢蓝老师！

但是按照这个代码来说，帮助文档就是错误的了。如果子表执行了.save，这时候的_identify就应该是已经生成了。不应该再执行一次啊？

4楼第二次是为了保存ID值，当然如果想以后填入其它数据后再保存，可以去掉第二次的保存语句

主题：取_identify值居然失败了？