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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 克隆数据

共有4082人关注过本帖树形打印复制链接主题：克隆数据

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/3/14 8:26:00 [只看该作者]

DataTables("收购").Load()

用上面代码还是不行？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/3/14 8:31:00 [只看该作者]

没道理会没效果,你表弄对了吗?

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/3/14 8:45:00 [只看该作者]

If Tables("收购").Current("作废") = True Then
    MessageBox.Show("该行已作废!")
Else

    Dim r As Row = Tables("收购").current
    Dim dr As DataRow = DataTables("收购").addnew
    r("修改") = False
    r("打印") = False
    r("作废") = False
    dr("编号")=r("编号") & "-" & "已作废"
    dr("猪主姓名")=r("猪主姓名")
    dr("头数")=r("头数")
    dr("重量")=r("重量")
    dr("单价")=r("单价")
    dr("日期")=r("日期")
    dr("年")=r("年")
    dr("月")=r("月")
    dr("日")=r("日")
    dr("修改")=True
    dr("打印")=True
    dr("收购凭证号")=r("收购凭证号")
    dr("字符日期")=r("字符日期")
    dr("作废")=True
    dr("销售已录入")=r("销售已录入")
    dr("收购金额")=r("收购金额")
    r("收购凭证号") = ""
End If