- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34628)
-- 发布时间：2013/6/10 12:55:00
-- 求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？
求助，如果数据表“车辆信息”中车牌号和车辆编号增加了值，那么“年审信息”数据表中自动增加一行并将“车辆信息”的相应值填入到“年审信息”数据表中的车牌号和车辆编号中。希望大家不惜赐教。谢谢
此主题相关图片如下：tu1.jpg
此主题相关图片如下：tu2.jpg
-- 发布时间：2013/6/10 13:53:00
--
“车辆信息”表的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
-- 发布时间：2013/6/10 21:31:00
--
高手不愧是高手啊，太感谢你了。
-- 发布时间：2013/7/7 21:19:00
--
有相似的需求，套用了代码，无效！帮忙看看是哪里的问题。
此主题相关图片如下：qq截图20130707211523.png
此主题相关图片如下：qq截图20130707211548.png
此主题相关图片如下：qq截图20130707211636.png
-- 发布时间：2013/7/7 22:22:00
--
用关联表不就可以了吗？
-- 发布时间：2013/7/7 22:34:00
--
关联表没有自动增加行的功能吧？
-- 发布时间：2013/7/7 22:49:00
--
说明书就有现成的例子
-- 发布时间：2013/7/8 8:30:00
--
说明书使用还是开发？使用指南介绍的功能很有限，满足不了实际需要。
此主题相关图片如下：qq截图20130708082744.png
没有自动增加行的功能，需手动Ctrl+A添加。
-- 发布时间：2013/7/8 9:22:00
--
也有：
http://www.foxtable.com/help/topics/2477.htm
-- 发布时间：2013/7/8 11:39:00
--
哦，原来是测试有误！需在排产表新增行才有效，在之前行重置无效。
现希望改为填入实际张数并经过复核后才在执行表新增行，代码如何改写？（复核列属性为逻辑）
此主题相关图片如下：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
应该改粉色字体那行代码吧？怎么改呢？