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

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

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

瞩望星空

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

加好友

发短信

等级：二尾狐帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00

能否补齐“未交数量” 发帖心情

Post By：2015/5/13 11:24:00 [只看该作者]

现有“出库明细表”有2个订单的6个出库单号的“未交数量”为空值

第一个问题：

'加载未交数量为空的数据

DataTables("出库明细表").LoadFilter = "[未交数量] Is Null"

DataTables("出库明细表").Load

DataTables("出库明细表").LoadChildren("订单明细表", "客户订单号", "客户订单号")

‘这样利用关联子表去加载父表的写法是否有错？因为“订单_出库”关联字段为二个：客户订单号与物料编号。

第二个问题：

为了补齐这6行数据，写了以下代码：

SystemReady = False

For Each r As Row In Tables("订单明细表").rows ’经上述加载后，只保留出库明细中未交数量为空值的数据

Dim ss,dd,ee As Integer

For Each r2 As Row In Tables("订单明细表.出库明细表").rows ‘对关联表的行进行操作

If ss = 0 Then '第一次循环直接行到订单数量

r2("未交数量") = r("订单数量")

Else

r2("未交数量") = ee - dd '上次未交一上次实送数量

End If

dd = r2("实交数量")

ee = r2("未交数量")

ss = ss +1

SystemReady = True

MessageBox.Show("补齐未交数量")

但上述结果不对，是不是不能对关联表的行进行操作？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:补齐数量.table

[此贴子已经被作者于2015/5/13 11:26:51编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("订单明细表", "客户订单号]+[物料编号", "[客户订单号]+[物料编号]")

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("补齐未交数量")

瞩望星空

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

加好友

发短信

等级：二尾狐帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00

Post By：2015/5/13 11:53:00 [只看该作者]

对，第二个问题是这样。但是计算结果出错。

但是，第一个问题改了后，反而出错了：

'加载未交数量为空的数据

DataTables("出库明细表").LoadFilter = "[未交数量] Is Null"

DataTables("出库明细表").Load

DataTables("出库明细表").LoadChildren("订单明细表","[客户订单号]+[物料编号]","[客户订单号]+[物料编号]")

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.11.11.1

错误所在事件：加载[订单明细表]失败!

详细错误信息：

语法错误。在查询表达式 '([客户订单号]+[物料编号] in (Select DISTINCT [[客户订单号]+[物料编号]] F rom (Select [_Identify], * F rom [~TMPCLP出库明细表] Where ([未交数量] Is Null)) FoxTempaX))' 中。

For Each r2 As DataRow In r.DataRow.GetChildRows("出库明细表")