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

求助，如果数据表“车辆信息”中车牌号和车辆编号增加了值，那么“年审信息”数据表中自动增加一行并将“车辆信息”的相应值填入到“年审信息”数据表中的车牌号和车辆编号中。希望大家不惜赐教。谢谢

 

此主题相关图片如下：tu1.jpg


此主题相关图片如下：tu2.jpg

“车辆信息”表的DataColChanged

 

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截图20130707211523.png


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


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

用关联表不就可以了吗？

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

说明书就有现成的例子

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

 

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

 

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

也有：

 

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

 

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

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

此主题相关图片如下：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

 

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