主题：关联表内容填充代码请求帮忙

代码没问问题。

1、数据库发上来

 

2、说明怎么操作无效。

 

3、最好做一个独立的例子发上来。

改了楼上的代码，再测试新增行是否还有问题？

 

如果还有问题，把mdb压缩成zip后上传

没看到和下载你上传的东西

密码发上来啊

你把dataRowAdding的代码写到datarowAdded事件即可。

不可能，我测试没问题。

 

或者你删除事件那里，加入msgbox弹出_Identify是什么，然后看看明细表，有没有对应的编号。

 

正常都是没问题的啊。

新增的行肯定没问题，以前的行，因为代码的保存问题，你得手动删除。

 测试，没、问、题。

因为_Identify的值是要保存后才有效的。

 

要不，你明细表，必须要有一个唯一的主键，标记其唯一，然后用这一列的值代替 _Identify

 

Select Case e.DataCol.name
    Case  "物料名称","规格型号","物料编号", "入库数量","入库单号","交易日期","供货厂家","备注"
        Dim dr As DataRow = DataTables("物料明细").Find("编号 = '入库" & e.DataRow("_Identify") & "'")
        e.DataRow.save

        If dr Is Nothing Then
            dr = DataTables("物料明细").addnew
            dr("编号") = "入库" & e.DataRow("_Identify")
        End If

        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
       
    End  Select