以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]外部数据跨表如何窗口计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72551)

--  作者:童年
--  发布时间:2015/8/1 0:48:00
--  [求助]外部数据跨表如何窗口计算
请问,用外部数据库access时,种植收入表中的年收入=种植收入表中的小麦亩数×基础数据表中的小麦产量×基础数据表中的小麦单价,怎么实现
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:外部数据跨表计算.zip

[此贴子已经被作者于2015/8/1 0:48:58编辑过]

--  作者:y2287958
--  发布时间:2015/8/1 8:09:00
--  
种植收入表的DataColChanged事件
If e.DataCol.Name = "小麦亩数"
    Dim dr As DataRow = e.DataRow
    Dim fdr As DataRow = DataTables("基础数据").Find("ID=" & dr("ID"))
    If fdr IsNot Nothing
        dr("年收入") = dr("小麦亩数") * fdr("小麦产量") * fdr("小麦单价")
    End If
End If

--  作者:童年
--  发布时间:2015/8/1 9:21:00
--  
以下是引用y2287958在2015/8/1 8:09:00的发言:
种植收入表的DataColChanged事件
If e.DataCol.Name = "小麦亩数"
    Dim dr As DataRow = e.DataRow
    Dim fdr As DataRow = DataTables("基础数据").Find("ID=" & dr("ID"))
    If fdr IsNot Nothing
        dr("年收入") = dr("小麦亩数") * fdr("小麦产量") * fdr("小麦单价")
    End If
End If

 

    Dim fdr As DataRow = DataTables("基础数据").Find("ID=" & dr("ID"))

 

这一行使得 种植收入 表中的ID与 基础数据 表中的ID相同时才会计算,而现在基础数据只能有第一行,也就相当于目前 小麦产量和小麦单价 是不变的。

请问如何实现?


--  作者:有点蓝
--  发布时间:2015/8/1 9:46:00
--  
什么意思?没明白,是不是基础数据中有每年的产量和单价,那你可以加个日期条件一起过滤
--  作者:童年
--  发布时间:2015/8/1 9:51:00
--  
以下是引用有点蓝在2015/8/1 9:46:00的发言:
什么意思?没明白,是不是基础数据中有每年的产量和单价,那你可以加个日期条件一起过滤

嗯嗯,加个日期条件的话更好,怎么做啊,能否修改一个那个例子


--  作者:大红袍
--  发布时间:2015/8/2 11:02:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:外部数据跨表计算.zip