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

Case  "产品名称","规格型号"

改成

Case  "物料名称", "入库单号", "入库数量"

那你改成replacefor

http://www.foxtable.com/help/topics/1532.htm

beforeSaveDataRow是事件

Dim dr As DataRow = DataTables("物料明细").Find("物料编号 = '" & e.DataRow("物料编号") & "'")
If dr IsNot Nothing Then
    dr("入库数量") = e.DataRow("入库数量")
End If

不应该有问题的。加上红色代码

Select Case e.DataCol.name
    Case  "物料名称","规格型号","物料编号", "入库数量"
        Dim dr As DataRow = DataTables("物料明细").Find("编号 = '入库" & e.DataRow("_Identify") & "'")
        If dr Is Nothing Then
            dr = DataTables("物料明细").addnew
            e.DataRow.save
            dr("编号") = "入库" & e.DataRow("_Identify")
        End If
       
        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
       
    End  Select

上传例子说明问题，不会有问题。