Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共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]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 5 queries.