以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]条件求和的问题,请各位指教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26445)

--  作者:hzfei8
--  发布时间:2012/12/4 18:56:00
--  [求助]条件求和的问题,请各位指教
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:czy
--  发布时间:2012/12/4 19:59:00
--  

订单表DataColChanged事件代码:

记得将采购表的采购量列改成数值型。

 

If e.DataCol.name = "要求交期" Then
    If e.DataRow.IsNull("要求交期") = False
        e.DataRow("订单合计") = e.DataTable.Compute("sum(订单量)","料号 = \'" & e.DataRow("料号") & "\' and 要求交期 <= #" & e.DataRow("要求交期") & "#")
        e.DataRow("采购合计") = DataTables("采购表").Compute("sum(采购量)","料号 = \'" & e.DataRow("料号") & "\' and 采购交期 <= #" & e.DataRow("要求交期") & "#")
    Else
        e.DataRow("订单合计") = Nothing
        e.DataRow("采购合计") = Nothing
    End If
End If


--  作者:lin_hailun
--  发布时间:2012/12/4 20:08:00
--  
大致如下,看代码,多看帮助文档。

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



--  作者:zerov
--  发布时间:2012/12/4 22:09:00
--  
  我把代码加入表属性中,可不能自动计算出来呀?
--  作者:狐狸爸爸
--  发布时间:2012/12/5 8:16:00
--  

对于原有数据,要重置列才能生效的。


--  作者:hzfei8
--  发布时间:2012/12/5 10:59:00
--  

 

[此贴子已经被作者于2012-12-5 13:01:56编辑过]

--  作者:hzfei8
--  发布时间:2012/12/5 11:02:00
--  

 

[此贴子已经被作者于2012-12-5 13:01:21编辑过]

--  作者:hzfei8
--  发布时间:2012/12/5 11:04:00
--  
以下是引用lin_hailun在2012-12-4 20:08:00的发言:
大致如下,看代码,多看帮助文档。

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

采购表里“采购量”列和“采购交期“列变更时,订单表里的”采购合计“列也要自动更新该怎么写

[此贴子已经被作者于2012-12-5 13:06:44编辑过]

--  作者:lin_hailun
--  发布时间:2012/12/5 11:08:00
--  
 实在不行,三楼有一个例子,你可以参考一下。

 你可以输入一些测试数据,然后这一行就自动变化了。

 如果要全部变化,就选中某一列,然后点击菜单里的重置列,就会改变全部。

--  作者:狐狸爸爸
--  发布时间:2012/12/5 11:42:00
--  

对于原有数据,代码并不是即时生效的,要重置列:

 

http://www.foxtable.com/help/topics/1469.htm

http://www.foxtable.com/help/topics/1587.htm