以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求关于表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104062) |
||||
-- 作者:sgkyzfh -- 发布时间:2017/7/22 9:29:00 -- 求关于表的问题 有表a和表b他们都有5个列,且字段名和数据类型相同.我想求:当表a录入数据后,且第5列不为空时,触发程序将表a这一行的数据发送到表b,新建一行数据。谢谢! |
||||
-- 作者:有点蓝 -- 发布时间:2017/7/22 10:19:00 -- 参考:http://www.foxtable.com/webhelp/scr/1451.htm 类似 Select Case e.DataCol.Name Case "第一列","第二列","第三列","第四列","第五列" Dim dr As DataRow = e.DataRow Dim pr As DataRow If dr.IsNull("第五列") =False Then Dim filter As String filter = "编号 = \'" & dr("编号") & "\'" pr = DataTables("表B").Find(filter) If pr Is Nothing Then pr = DataTables("表B").AddNew dr("编号 ") = pr("编号") End If dr("第一列") = pr("第一列") dr("第二列") = pr("第二列") ...... End If End Select |
||||
-- 作者:sgkyzfh -- 发布时间:2017/7/22 20:12:00 -- 附件 老师你理解错了,我的本意是这样的,表A和表B没有必然的关联,只是他们的列名相同(即:A、B、C、D、E列),我的想法是:当表A增加一行后,如果E列不为空,那么则在
表B里新增一行,并将表A的值付给表B对应的列。谢谢老师。 |
||||
-- 作者:有点甜 -- 发布时间:2017/7/23 10:08:00 --
|
||||
-- 作者:sgkyzfh -- 发布时间:2017/7/23 22:45:00 -- 谢谢老师,测试过了很好用。再次谢谢 |