以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]父表子表某列满足条件要求完成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145516)

--  作者:ntqhj
--  发布时间:2020/1/27 17:05:00
--  [求助]父表子表某列满足条件要求完成
老师新年好!请帮写下代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:父表件数与子表装车件相等.table


--  作者:有点蓝
--  发布时间:2020/1/28 10:59:00
--  
Select Case e.DataCol.Name
    Case "接单日期","托运合同号"
        If e.DataRow.IsNull("托运合同号") OrElse e.DataRow.IsNull("接单日期")  Then
            e.DataRow("收款状态") = Nothing
        Else
            e.DataRow("发货状态") = "执行中"
        End If
        If DataTables("承运人明细表").Compute("sum(装车件数)","托运合同号=\'" & e.DataRow("托运合同号") & "\'") >= e.DataRow("件数")
            e.DataRow("发货状态") = "发货完成"
        End If
End Select

--  作者:ntqhj
--  发布时间:2020/1/29 9:12:00
--  
测试运行提示出错呢,无效的聚合函数 Sum()和类型 String 的用法。


--  作者:有点蓝
--  发布时间:2020/1/29 13:45:00
--  
件数列是字符列肯定就错咯,改为整数列
--  作者:ntqhj
--  发布时间:2020/1/30 9:53:00
--  
按要求修改了,似乎执行还是有问题。另请教:foxtabl里有的字段,在dbf库里怎就不显示呢?
--  作者:有点蓝
--  发布时间:2020/1/30 10:12:00
--  
表达式列来的吧,表达式列不存在数据库的。可以改为数据列
--  作者:ntqhj
--  发布时间:2020/1/30 13:33:00
--  
是打算改数据列,代码目前还不会写呢,只会复制加粘帖。前次代码已改数据列,运行好像还是有问题,帮我再看下呗,同时 “执行中” 及 “发货完成” 好像不能根据输入的相应内容自由变换。麻烦老师了!
--  作者:有点蓝
--  发布时间:2020/1/30 13:38:00
--  
1楼实例我测试没有问题。请上传有问题的实例说明
--  作者:ntqhj
--  发布时间:2020/1/30 14:17:00
--  
收款状态改成了发货状态,不知是否应该修改
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:父表件数与子表装车件相等.table


--  作者:有点蓝
--  发布时间:2020/1/30 14:30:00
--  
参考:http://www.foxtable.com/webhelp/topics/1472.htm
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:父表件数与子表装车件相等1.zip