以文本方式查看主题

-  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列不为空,那么则在
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

表B里新增一行,并将表A的值付给表B对应的列。谢谢老师。
--  作者:有点甜
--  发布时间:2017/7/23 10:08:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:sgkyzfh
--  发布时间:2017/7/23 22:45:00
--  
谢谢老师,测试过了很好用。再次谢谢