[求助]复制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制

共有2329人关注过本帖树形打印复制链接主题：[求助]复制

江南小城

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

[求助]复制 发帖心情

Post By：2016/7/23 20:52:00 [只看该作者]

老师，按条件复制，譬如“摘要”列有不同的字段名称其中含有销售和付款这两个字段的行自动复制到另一个表中。复制行的列也要得到限制不复制所有列。

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/7/24 7:52:00 [只看该作者]

可以看看：

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

江南小城

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/7/24 18:45:00 [只看该作者]

以下是引用江南小城在2016/7/23 20:52:00的发言：
老师，按条件复制，譬如“摘要”列有不同的字段名称其中含有销售和付款这两个字段的行自动复制到另一个表中。复制行的列也要得到限制不复制所有列。

Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

老师，上面代码一知半解，不知怎样修改？我要把摘要列含销售和采购的字段复制到库存表去。

Hyphen

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/25 8:37:00 [只看该作者]

上传例子，不知道您的数据结构，也不知道怎么改

江南小城

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/7/25 9:07:00 [只看该作者]

老师，把"农行个人账户管理"表"交易摘要"列中含银证转账字段行的部分数据自动复制到"银证交割"表中

下面代码望老师给予修改。谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:有条件复制.table

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/25 11:01:00 [只看该作者]

农行表DataColChanged事件

If e.DataRow("交易摘要").Contains("银证转帐") Then
    Dim fdr As DataRow = DataTables("银证交割").Find("编号 = '" & e.DataRow("编号") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("银证交割").AddNew
    End If
    fdr("编号") = e.DataRow("编号")
    fdr("支出金额") = e.DataRow("支出金额")
    fdr("收入金额") = e.DataRow("收入金额")
End If