主题：求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？

有相似的需求，套用了代码，无效！帮忙看看是哪里的问题。
此主题相关图片如下：qq截图20130707211523.png


此主题相关图片如下：qq截图20130707211548.png


此主题相关图片如下：qq截图20130707211636.png

关联表没有自动增加行的功能吧？

说明书使用还是开发？使用指南介绍的功能很有限，满足不了实际需要。

 

此主题相关图片如下：qq截图20130708082744.png

 

没有自动增加行的功能，需手动Ctrl+A添加。

哦，原来是测试有误！需在排产表新增行才有效，在之前行重置无效。

现希望改为填入实际张数并经过复核后才在执行表新增行，代码如何改写？（复核列属性为逻辑）

此主题相关图片如下：qq截图20130708112810.png

 

If e.DataCol.Name = "批次" OrElse e.DataCol.Name = "板料编码"  Then
    Dim dr As DataRow = DataTables("执行").AddNew()
    If e.DataRow.IsNull("批次") = False AndAlso e.DataRow.IsNull("板料编码") =  False Then
        dr("批次") = e.DataRow("批次")
        dr("板料编码") = e.DataRow("板料编码")
    Else
        dr("批次") = Nothing
        dr("板料编码") = Nothing
    End If
End If

 

应该改粉色字体那行代码吧？怎么改呢？

出现错误提示：

 

此主题相关图片如下：qq截图20130708114931.png

If e.DataCol.Name = "批次" OrElse e.DataCol.Name = "板料编码"  Then
End If e.DataRow("复核") Then

 

这个END IF摆在哪个位置？我上面那样放还是有错误提示。

 

三个IF得补够三个END IF，现在不出在错误提示了，但是在排产表新增行且在复核列打上对钩，执行表没有出现对应的新增行。

排产表做计划，计划通过审核安排开料，开料完成后报实际数，实际数通过复核转执行表报各工序执行情况，在执行表统计产量、工资等。

 

排产表有代码，希望上报实际开料数通过复核后在执行表自动新增行。

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

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

YEAH！通啦，谢楼上。

真棒!根据实际需要改为:

If e.DataRow("审核") =True AndAlso e.DataRow("复核") =True   Then
        Dim dr As DataRow = DataTables("执行").AddNew()
        dr("批次") = e.DataRow("批次")
        dr("板料编码") = e.DataRow("板料编码")
        dr("条料规格") = e.DataRow("条料规格")
        dr("零件名称") = e.DataRow("零件名称")
        dr("零件图号") = e.DataRow("零件图号")
        dr("件_张") = e.DataRow("件_张")
        dr("下料_张") = e.DataRow("实际张")

    End If