以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在表A和B中相同位置插入行后，如何用代码将表A新插入行中填入的内容填到表B中？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122538)
--  作者：33chyh
--  发布时间：2018/7/27 16:01:00
--  [求助]在表A和B中相同位置插入行后，如何用代码将表A新插入行中填入的内容填到表B中？

手动在表A的第一列c后新插入一行后，利用事件代码在表B中的第一列c后也插入一行(代码已写入)。想用如下代码将表A新插入行中填入的内容填到表B中。运行时报错，请帮助解决！！！

If e.DataCol.name = "第一列" Then
    Dim filter As DataRow = DataTables("表B").find("[_Identify =] \'" & e.DataRow("_Identify") & "\'")
    If filter IsNot Nothing Then
        Dim s As String = e.DataRow("第一列")
        filter("第一列") = s
    End If
End If

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb
--  作者：有点甜
--  发布时间：2018/7/27 16:04:00
--  
If e.DataCol.name = "第一列" Then
    Dim filter As DataRow = DataTables("表B").find("_Identify = \'" & e.DataRow("_Identify") & "\'")
    If filter IsNot Nothing Then
        Dim s As String = e.DataRow("第一列")
        filter("第一列") = s
    End If
End If
--  作者：有点甜
--  发布时间：2018/7/27 16:04:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2490.htm

 
--  作者：33chyh
--  发布时间：2018/7/27 17:01:00
--  
谢谢有点甜老师！代码运行没有报错！