以文本方式查看主题

-  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=151559)
--  作者：13796361423
--  发布时间：2020/6/28 8:22:00
--  命令编写

我想， A 表 删除的行在B表里出现，两表结构一样

我在DataRowDeleting里输入这样的命令就是不好使

 

For Each
dr1 As DataRow In DataTables("表A").
     Dim dr2 As DataRow = DataTables("表B").AddNew()
     For Each dc As DataCol In DataTables("表A").DataCols
         dr2(dc.Name) = dr1(dc.name)
     Next
 Next
请问这个命令如何修改
--  作者：有点蓝
--  发布时间：2020/6/28 9:21:00
--  
Dim dr2 As DataRow = DataTables("表B").AddNew()
     For Each dc As DataCol In DataTables("表A").DataCols
         dr2(dc.Name) = e.datarow(dc.name)
     Next