以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于表间复制的小问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30525)
--  作者：fpx406
--  发布时间：2013/3/29 15:25:00
--  关于表间复制的小问题请教

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

各位：

请教一个问题，关于表间复制的。请看附件。 看窗口中里面的label说明。

大体是从一个副本表中拷贝数据到一个数据表中。

谢谢！
--  作者：狐狸爸爸
--  发布时间：2013/3/29 15:31:00
--  

接受按钮代码：

 

For Each r1 As Row In Tables("订单接收_Table1").Rows
    Dim r2 As Row  = Tables("订单接收明细").addnew
    r2("订单号") = r1("订单号")
    r2("接收数量") = r1("接收数量")
    r2("零件号") = r1("零件号")
    r2("接收日期") = Date.Today
Next
--  作者：fpx406
--  发布时间：2013/3/29 15:42:00
--  

假如有多项明细，要先判定接收数量是否提完整的填写了  如果完整的填写了才能进行数据转存，不然就不执行转存代码 应该如何处理？

我用for each 假如第一项符合要求 也会被存到表中 不符合数据的完整性要求。

谢谢！
--  作者：狐狸爸爸
--  发布时间：2013/3/29 16:08:00
--  
For Each r1 As Row In Tables("订单接收_Table1").Rows
    Dim r2 As Row  = Tables("订单接收明细").addnew
    If r1.IsNull("订单号") OrElse  r1.IsNull("接收数量") OrElse r1.IsNull("零件号") OrElse r1.IsNull("接收日期") Then
        messagebox.show("输入不完整")
    Else
        r2("订单号") = r1("订单号")
        r2("接收数量") = r1("接收数量")
        r2("零件号") = r1("零件号")
        r2("接收日期") = Date.Today
    End If
Next
--  作者：fpx406
--  发布时间：2013/3/29 16:13:00
--  
谢谢狐狸爸爸