Foxtable(狐表)用户栏目专家坐堂 → 菜鸟求代码


  共有19595人关注过本帖树形打印复制链接

主题:菜鸟求代码

帅哥哟,离线,有人找我吗?
shixia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
菜鸟求代码  发帖心情 Post By:2009/5/17 18:18:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/5/17 18:41:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2009/5/17 18:59:00 [只看该作者]

怎么改,请版主改,我想学写代码的思路

 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/5/17 21:31:00 [只看该作者]

以下是引用shixia在2009-5-17 18:59:00的发言:
怎么改,请版主改,我想学写代码的思路

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


 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2009/5/17 21:38:00 [只看该作者]

这种方法只能在按钮里实现吧,不能在DataColChanged中这样写代码吧

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/18 7:31:00 [只看该作者]

用DataColChanged的也行:

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/18 11:01:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部