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

我做了个“物料中心”表并关联一个“交易明细”的子表，子表是空白的，想从一“采购单”下关联的“采购明细”子表和一“发料单”下关联的“发料明细”子表中的内容做填充（所有关联都采用物料编号为关联，交易明细是锁定不可编辑的）。

即：采购明细增加（或删除）一行，交易明细中对应的也增加（或删除）一行，发料明细增加（或删除）一行，也在交易明细中对应的物料行里增加（或者删除）一行，用来快速方便的查阅该物料的变动情况

Select Case e.DataCol.name
    Case "物料编号"
        Dim dr As DataRow = DataTables("物料明细").Find("物料编号 = '" & e.OldValue & "'")
          If dr Is Nothing Then
             dr = DataTables("物料明细").AddNew()
             dr("物料编号") = e.DataRow("物料编号")
             dr("物料名称") = e.DataRow("物料名称")
             dr("规格型号") = e.DataRow("规格型号")
             dr("入库单号") = e.DataRow("入库单号")
              dr("入库数量") = e.DataRow("入库数量")
             dr("交易日期") = e.DataRow("交易日期")
             dr("供货厂家") = e.DataRow("供货厂家")
             dr("备注") = e.DataRow("备注")
         Else
            dr("物料编号") = e.DataRow("物料编号")
            
         End If
    Case  "产品名称","规格型号"
         Dim dr As DataRow = DataTables("物料明细").Find("物料编号 = '" & e.DataRow("物料编号") & "'")
         If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
          End If
 End  Select

 

这样效果是达到了，不过只是选择物料编号后，其它列里不动的内容都可以填充，但是其中“入库数量”列输入数据后，物料明细表了对应列不发生改变，都是0，请教如何操作。

这样的话，数据是发生变化了，但是效果明显没有第一种好，因为这样的话，会导致各个表操作后，都只在第一行发生变化，其它行都没有了

用replacefor怎样确定Value值啊？

DataTables("物料明细").ReplaceFor("入库数量", "入库数量")  ？

经观察，采用3楼代码如果是先输入入库数量，后输入物料编号的情况下，则”物料明细“表的入库数量数据可以发生改变，如此的话，是否可以把3楼的代码改为按钮”保存“的代码，即先填写进内容后，再按保存按钮，不知道能否实现，请教代码如何改写，谢谢了

9楼代码后，物料明细中也是只有一行的入库数量发生改变，后续的都不发生改变，只在第一行发生改变

谢谢老师，我先摸索两天再来请教吧，谢谢了

老师好，自己思考了两天都没有解决此问题，现发例子上来求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

要求：出库明细表增加或者是删除一行，填入物料编号后，物料明细表里对应的物料同时增加(填充进该行所有内容)或者删除一行，用来方便的查询物料的出入库情况。谢谢老师

真心感谢红袍老师给我的帮助，谢谢了，谢谢

不过如果增加一个入库表和子表入库明细，代入代码后就出现了问题