以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教代码的编写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=665)

--  作者:cowpoke
--  发布时间:2008/9/23 0:36:00
--  请教代码的编写
文件如下:请大侠帮助写出月比和比上年的计算代码.意在:
            1、了解怎样取它表的值来进行运算.
            2、怎样查找当前表符合条件的值来进行运算。
    谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:收入管理.table


--  作者:贺老六
--  发布时间:2008/9/23 8:44:00
--  

呵呵,请说明一下,什么是月比、年比、上年比。


--  作者:cowpoke
--  发布时间:2008/9/23 12:33:00
--  

早上上班去了,刚下班回.
月比=[本月收入]/(计划表.[生产计划]/12) for [年度]=[计划表.年度]
年比=[累计完成]/(计划表.[生产计划]) for [年度]=[计划表.年度]
上年比=(当前表.[累计完成](2008年1月)-当前表.[累计完成](2007年1月))/当前表.[累计完成](2007年1月)*100,其它月份类推


--  作者:贺老六
--  发布时间:2008/9/23 13:52:00
--  
其实很简单,写了年比和月比,第三个没看明白,你可以自己参照写:

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:收入管理.table


 

Dim dr1 As DataRow = e.DataRow

Dim dr2 As DataRow = DataTables("计划表").Find("[年度] = " & dr1("年度"))

dr1("月比") = dr1("本月收入")/dr2("生产计划")

dr1("年比") = dr1("累计完成")/dr2("生产计划")


[此贴子已经被作者于2008-9-23 13:52:57编辑过]

--  作者:贺老六
--  发布时间:2008/9/23 14:13:00
--  

从这个例子可以看出,普通的数据管理,用易表容易点。
但是真的做数据管理系统,foxtable又容易多了。


--  作者:cowpoke
--  发布时间:2008/9/23 15:16:00
--  
憋了一上午还是没有弄出来,还得麻烦老板.
比上年=2008年1月的累计完成-2007年1月的累计完成,其它月份的都一样.如果没有上年的就为0
--  作者:狐狸爸爸
--  发布时间:2008/9/23 16:09:00
--  
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:收入管理.table


呵呵,其实就是一回事嘛:
 

Dim dr1 As DataRow = e.DataRow

Dim dr2 As DataRow = DataTables("年度收入台账").Find("[年度] = " & (dr1("年度")-1) & " And [月份] = " & dr1("月份"))

If dr2 isNot Nothing Then \'如果找到上年同月的行

    dr1("较上年") = dr1("累计完成") - dr2("累计完成")

End If


[此贴子已经被作者于2008-9-23 16:09:04编辑过]