| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]查找定位，复制再删除 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105410) |
| -- 作者：KWK001 -- 发布时间：2017/8/18 16:07:00 -- [求助]查找定位，复制再删除 如果A表中第1列发生变化， 在B表第1列查找是否有满足条件的行，有的话，将该行数据附着到表C中(新增行后再复制）。 然后删除b表中该行数据 这个大家看看可以做吗？ |
| -- 作者：有点蓝 -- 发布时间：2017/8/18 16:17:00 -- 参考：http://www.foxtable.com/webhelp/scr/0625.htm |
| -- 作者：KWK001 -- 发布时间：2017/8/18 16:41:00 -- 谢谢指导，帮我看看有没有优化的？ If e.DataCol.Name = "第一列" Then Dim dr As DataRow dr = DataTables("表b").Find("第一列 = \'" & e.DataRow("第一列") & "\'" ) If dr IsNot Nothing \' Dim dr2 As DataRow = DataTables("表C").AddNew() For Each dc As DataCol In DataTables("表A").DataCols dr2(dc.Name) = dr(dc.name) Next dr.Delete End If End If
|
| -- 作者：有点蓝 -- 发布时间：2017/8/18 16:51:00 -- 没有问题 |