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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能否补齐“未交数量”

共有2621人关注过本帖树形打印复制链接主题：能否补齐“未交数量”

大红袍

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

加好友

发短信

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

Post By：2015/5/13 11:29:00 [显示全部帖子]

1、

DataTables("出库明细表").LoadFilter = "[未交数量] Is Null"
DataTables("出库明细表").Load
DataTables("出库明细表").LoadChildren("订单明细表", "客户订单号]+[物料编号", "[客户订单号]+[物料编号]")

大红袍

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

加好友

发短信

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

Post By：2015/5/13 11:32:00 [显示全部帖子]

2、这个意思？

For Each r As Row In Tables("订单明细表").rows   '经上述加载后,只保留出库明细中未交数量为空值的数据
    Dim ss,dd,ee As Integer
    For Each r2 As DataRow In r.DataRow.GetChildRows("出库明细表") '对关联表的行进行操作
        If ss = 0 Then                                                           '第一次循环直接行到订单数量
            r2("未交数量") = r("订单数量")
        Else
            r2("未交数量") = ee - dd '上次未交一上次实送数量
        End If
        dd = r2("实交数量")
        ee = r2("未交数量")
        ss = ss +1
    Next
Next
SystemReady = True
MessageBox.Show("补齐未交数量")