- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教代码的编写 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=665)
-- 发布时间：2008/9/23 0:36:00
-- 请教代码的编写
文件如下:请大侠帮助写出月比和比上年的计算代码.意在：
1、了解怎样取它表的值来进行运算.
2、怎样查找当前表符合条件的值来进行运算。
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:收入管理.table |
-- 发布时间：2008/9/23 8:44:00
--
呵呵，请说明一下，什么是月比、年比、上年比。
-- 发布时间：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又容易多了。
-- 发布时间：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编辑过]