以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]已上传实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87234)

--  作者:lovebc299
--  发布时间:2016/7/6 11:04:00
--  [求助]已上传实例
表B中有一个窗口
我想在窗口的表格中显示表B的第四列为ture的行,
并且在窗口的下面显示表中产品生产所需时间

单件产品的生产时间在表A中


请老师给指点一下,谢谢,我自己写了一个,在表A中找不到对应的内容



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


--  作者:lovebc299
--  发布时间:2016/7/6 11:15:00
--  
老师,能看懂要求吗,不懂我再解释解释
--  作者:大红袍
--  发布时间:2016/7/6 11:17:00
--  

afterLoad事件

 

e.Form.Controls("Table1").Table.Filter = "第四列 = true"
Dim sum As Double = 0
For Each r As Row In e.Form.Controls("Table1").Table.Rows
    Dim fdr As DataRow = DataTables("表A").Find("产品名称 = \'" & r("产品") & "\'")
    If fdr IsNot Nothing Then
        sum += fdr("加工时间秒") * r("数量")
    End If
Next
e.Form.Controls("Label1").Text = sum