以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  入库主表所有明细隐藏了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120861)
--  作者：有点甜
--  发布时间：2018/6/25 11:56:00
--  

你设置filter隐藏的？

 

那你窗口afterLoad事件也写代码如

 

e.form.controls("Table1").Table.Filter = tables("入库主表").Filter
--  作者：有点甜
--  发布时间：2018/6/25 14:34:00
--  
table1指的是你table控件的属性【名称】，默认叫做 table1、table2、table3，你可以修改的。
--  作者：有点甜
--  发布时间：2018/6/25 16:49:00
--  

Select Case e.DataCol.Name
    Case "单价","订单数量"
        e.DataRow("金额")=e.DataRow("单价") * e.DataRow("订单数量")
    Case "客户名称","订单编号","金额"
        DataTables("订单主表").DataCols("订单编号").RaiseDataColChanged("客户名称=\'" & e.DataRow("客户名称")  & "\' and 订单编号=\'" & e.DataRow("订单编号")  & "\'")
End Select

Select Case e.DataCol.Name
    Case "客户名称","物料编号","版本号"
        e.DataRow("现有库存数量") = DataTables("入库主表").Compute("Sum(现有库存数量)","[客户名称] = \'" & e.DataRow("客户名称") & "\' and [物料编号]=\'" & e.DataRow("物料编号") & "\' and [版本号]=\'" & e.DataRow("版本号") & "\'")
End Select

Select Case e.DataCol.Name
    Case "客户名称","物料编号","版本号","订单编号"
        e.DataRow("已交数量") = DataTables("出库明细表").Compute("Sum(实交数量)","[客户名称] = \'" & e.DataRow("客户名称") & "\' and [物料编号]=\'" & e.DataRow("物料编号") & "\' and [版本号]=\'" & e.DataRow("版本号") &  "\' and [订单编号]=\'" & e.DataRow("订单编号") & "\'")
        e.DataRow("未交数量") = e.DataRow("订单数量") - e.DataRow("已交数量")+DataTables("退货明细表").Compute("Sum(退货数量)","[客户名称] = \'" & e.DataRow("客户名称") & "\' and [物料编号]=\'" & e.DataRow("物料编号") & "\' and [版本号]=\'" & e.DataRow("版本号") &  "\' and [订单编号]=\'" & e.DataRow("订单编号") & "\'")
End Select