主题：请教代码的编写

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:收入管理.table

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

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

其实很简单，写了年比和月比，第三个没看明白，你可以自己参照写：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:收入管理.table

 

Dim dr1 As DataRow = e.DataRow

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

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

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:收入管理.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