共7 条记录, 每页显示 10 条, 页签: [1]

标题：请教代码的编写

1楼

cowpoke 发表于：2008/9/23 0:36:00

文件如下:请大侠帮助写出月比和比上年的计算代码.意在：
            1、了解怎样取它表的值来进行运算.
            2、怎样查找当前表符合条件的值来进行运算。
    谢谢！

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

2楼

贺老六 发表于：2008/9/23 8:44:00

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

3楼

cowpoke 发表于：2008/9/23 12:33:00

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

4楼

贺老六 发表于：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编辑过]

5楼

贺老六 发表于：2008/9/23 14:13:00

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

6楼

cowpoke 发表于：2008/9/23 15:16:00

憋了一上午还是没有弄出来,还得麻烦老板.
比上年=2008年1月的累计完成-2007年1月的累计完成,其它月份的都一样.如果没有上年的就为0

7楼

狐狸爸爸 发表于：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编辑过]

共7 条记录, 每页显示 10 条, 页签: [1]