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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表间转移

共有1496人关注过本帖树形打印复制链接主题：表间转移

zoudezhao

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

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

表间转移

Post By：2017/6/16 19:29:00 [只看该作者]

假设表A与表B所有列相同，当订单状态=取消订单。满足条件行会批量转移到表B中，并删除这些表A中的行

2900819580

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

加好友

发短信

等级：六尾狐帖子：1342 积分：9766 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：2017/6/16 19:57:00 [只看该作者]

If e.DataRow("订单状态") = "取消订单" Then
Dim r As Row = Tables("表B").AddNew
    For Each c As Col In Tables("表B").Cols

        r(c.Name) = Tables("表A").Current(c.Name)
    Next
    Tables("表A").Current.Delete
End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/16 20:47:00 [只看该作者]

表A， datacolchanged事件

If e.DataRow("订单状态") = "取消订单" Then

Dim r As Row = Tables("表B").AddNew

For Each c As Col In Tables("表B").Cols

r(c.Name) = e.DataRow(c.Name)

e.DataRow.Delete

End If

zoudezhao

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

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

Post By：2017/6/17 10:15:00 [只看该作者]

我想做到一键会将表A中所有满足条件的行全部移到表B并且删除原表A的数据怎么做呀。。

[此贴子已经被作者于2017/6/17 10:22:32编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/17 10:20:00 [只看该作者]

For Each dr As DataRow in Tables("表A").Select("订单状态 = '取消订单'")

Dim r As Row = Tables("表B").AddNew

For Each c As Col In Tables("表B").Cols

r(c.Name) = dr(c.Name)

DataTables("表A").DeleteFor("订单状态 = '取消订单'")

zoudezhao

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

加好友

发短信

等级：一尾狐帖子：409 积分：3729 威望：0 精华：0 注册：2017/6/9 18:02:00

Post By：2017/6/17 10:32:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：123.png

有上述提示信息。。

有点蓝

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

加好友

发短信

等级：超级版主帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/17 10:50:00 [只看该作者]

For Each dr As DataRow In DataTables("表A").Select("订单状态 = '取消订单'")

下一主题 >> << 上一主题

主题：表间转移