Rss & SiteMap

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

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:菜鸟求代码

1楼
shixia 发表于:2009/5/17 18:18:00
“支出摊销”和“支出统计”是两个表,不用“交叉统计”方法,直接用代码把“支出摊销”中各月摊销和统计后反映在“支出统计”表的金额对应月的单元格中。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

2楼
lxl 发表于:2009/5/17 18:41:00
你这列名取的不是为难人吗图片点击可在新窗口打开查看
不改的话代码要复杂不少呢,改一下可以吧。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.table

3楼
shixia 发表于:2009/5/17 18:59:00
怎么改,请版主改,我想学写代码的思路
4楼
lxl 发表于:2009/5/17 21:31:00
以下是引用shixia在2009-5-17 18:59:00的发言:
怎么改,请版主改,我想学写代码的思路

2楼的文件就是改过的。
你原来的列名是 一月 二月  我改成1月 2月了。

5楼
shixia 发表于:2009/5/17 21:38:00
这种方法只能在按钮里实现吧,不能在DataColChanged中这样写代码吧
6楼
狐狸爸爸 发表于:2009/5/18 7:31:00
用DataColChanged的也行:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目46.table


但是在事先设计好统计表的情况下,lxl版主的代码显然更合理,反正都是要单击一个按钮来重算的。
7楼
mr725 发表于:2009/5/18 10:52:00
以下是引用狐狸爸爸在2009-5-18 7:31:00的发言:
用DataColChanged的也行:

 下载信息  [文件大小:352.0 KB  下载次数:2]
图片点击可在新窗口打开查看点击浏览该文件:管理项目46.table


但是在事先设计好统计表的情况下,lxl版主的代码显然更合理,反正都是要单击一个按钮来重算的。

不严谨~ 缺少月份的判断:图片点击可在新窗口打开查看
if r("月份") >=1 and r("月份") <=12
        ........原代码
else
        MessageBox.Show("月份输入错误!", "提示")
        r("月份") = nothing
end if

[此贴子已经被作者于2009-5-18 10:55:12编辑过]
8楼
狐狸爸爸 发表于:2009/5/18 11:01:00
图片点击可在新窗口打开查看
共8 条记录, 每页显示 10 条, 页签: [1]

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

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