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


  共有5190人关注过本帖树形打印复制链接

主题:克隆数据

帅哥哟,离线,有人找我吗?
发财
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
克隆数据  发帖心情 Post By:2014/3/13 9:19:00 [显示全部帖子]

主表、关联表根据编号关联的,并且编号是自动生成的如20140313-001,当主表的其中一条数据如20140313-005作废,我希望点击作废的同时自动克隆一条新数据连同关联表的数据,原作废的保留?

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 9:31:00 [显示全部帖子]

作废的已打印,已有打印piao据号,要保留,克隆一条修改正确后再打印。

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 9:41:00 [显示全部帖子]

每次打印的piao据不同,作废一次就有2个piao据号,二次就有3个piao据,这些piao据号怎么保留?

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 10:29:00 [显示全部帖子]

运行错误A child row has multiple parents.

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 10:43:00 [显示全部帖子]

运行错误Index -1 is either negative or above rows count.

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 11:23:00 [显示全部帖子]

Tables("收购").Current("作废") = True
Tables("收购").Current("编号") = Tables("收购").Current("编号") & "-" & "已作废"

If Functions.Execute("net20sp1") = False Then
    Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\作废收购单.xls")
Dim fl As String = ProjectPath & "Reports\作废收购单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit

Tables("收购").Current.Clone()

加后缀位置不对,如何修改?


 回到顶部
帅哥哟,离线,有人找我吗?
发财
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 15:50:00 [显示全部帖子]

如何将作废的行赋值给新增行,并且新增的编号没有“已作废”字样?


 回到顶部
帅哥哟,离线,有人找我吗?
发财
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 16:44:00 [显示全部帖子]

If Tables("收购").Current("作废") = True Then
    MessageBox.Show("该行已作废!")
Else
    If Functions.Execute("net20sp1") = False Then
        Return
    End If
    Dim Book As New XLS.Book(ProjectPath & "Attachments\作废收购单.xls")
    Dim fl As String = ProjectPath & "Reports\作废收购单.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PrintOut
    App.Quit
   
    Dim r As Row = Tables("收购").current
    Dim dr As DataRow = DataTables("收购").addnew
    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("头数")
    dr("收购金额")=r("收购金额")
    r("修改") = False
    r("打印") = False
    r("作废") = False
    r("收购凭证号") = ""
End If

 

关联表中的单价原是根据主表(收购表)的单价及重量的数据计算自动生成,但输入上述代码后却不能生成,为什么?


 回到顶部
帅哥哟,离线,有人找我吗?
发财
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 16:45:00 [显示全部帖子]

是不是  dr("单价")=r("单价")的错误?

 回到顶部
帅哥哟,离线,有人找我吗?
发财
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:8981 威望:0 精华:0 注册:2013/10/24 9:12:00
  发帖心情 Post By:2014/3/13 17:07:00 [显示全部帖子]

DataTables("收购").RemoveFor("[作废] = true")

移除后,怎样重新显示出来?


 回到顶部
总数 17 1 2 下一页