Office中国论坛/Access中国论坛

标题: 求教计税问题 [打印本页]

作者: judw30 时间: 2006-1-10 06:03
标题: 求教计税问题
[attach]15230[/attach]

求教我的职工表里有两个类型,1 疗区正常计税 2, 退休的,我不想计算税, 这个 if then 语句怎么写呀!

作者: 一点通 时间: 2006-1-10 06:26
例子中有个毛病,不应将合计字段都存在表中,其结果应由查询得出

[attach]15232[/attach]

[此贴子已经被作者于2006-1-9 22:28:54编辑过]

作者: judw30 时间: 2006-1-10 06:36
下载不了呀,不知道您在里面,给我修改了吗?

作者: judw30 时间: 2006-1-10 06:36
谢谢!

作者: judw30 时间: 2006-1-10 06:40
一点通老哥,在吗? 类型为退休的不想计税,应该怎么写呢?

作者: 一点通 时间: 2006-1-10 06:41

以下是引用judw30在2006-1-9 22:40:00的发言：
一点通老哥,在吗? 类型为退休的不想计税,应该怎么写呢?

不是写在例子了吗?

作者: judw30 时间: 2006-1-10 06:50
没明白,你说的呀,写到那呀!我想算的是,类型=退休所得税=0
Private Function CountSum()
Me.[yse] = [zwgz] + [jt] + [tgbf] + [dqbt] + [jlgz] + [fsbt] + [hlbt] + [hl] + [ycf] + [yyf] + [bjf] + [jj] + [rm] - [rm1] - [rm2] - 1600
If Me.yse <= 0 Then sds = 0
If Me.yse > 0 And Me.yse <= 500 Then sds = yse * 0.05
If Me.yse > 500 Then sds = yse * 0.1 - 25
Me.[kkhj] = [xzkk] + [sds] + [rm1] + [rm2] + [rm3]
Me.[yfhj] = [zwgz] + [jt] + [tgbf] + [dqbt] + [jlgz] + [fsbt] + [hlbt] + [hl] + [dsznf] + [ycf] + [yyf] + [bjf] + [jj] + [rm]
Me.[sfhj] = [yfhj] - [kkhj]
End Function

Private Sub lx_BeforeUpdate(Cancel As Integer)
If Me.[类型] = 退休 Then sds = 0

作者: 一点通 时间: 2006-1-10 06:53
由于你的文本框都是连接到表的,所以我将代码都写在文本框的数据来源了

作者: judw30 时间: 2006-1-10 07:09
哥哥,你能不能,给我写到,所得税那栏,我怎么写进去,不行呢?=IIf([lx]="退休",[sds],0) 还是那写的不对呀!

作者: 一点通 时间: 2006-1-10 07:15
按你的愿意进行修改

[attach]15234[/attach]

[此贴子已经被作者于2006-1-9 23:16:20编辑过]

作者: judw30 时间: 2006-1-10 07:25
但修改数据时有错误提示

作者: 一点通 时间: 2006-1-10 07:26
你要修改什么数据?计算字段是不能修改的

作者: judw30 时间: 2006-1-10 07:28
( 应发合计,所得税,扣款合计,实发合计)这些是计算的字段,录入其它数据时,就提示错误了呀

作者: 一点通 时间: 2006-1-10 07:38
将"应发合计,所得税,扣款合计,实发合计"这几个文本框删除,然后用手工再增加这几个文本框,问题将会解决,原因是你当时是用向导生成的

作者: judw30 时间: 2006-1-10 08:08
哥哥按你说的,我做了一下,是没问题了,但,实发合计,怎么通过查询表计算出来,给点提示呀!

作者: 一点通 时间: 2006-1-10 17:02
昨晚忘记查看你写的代码，问题就出在你写的代码上，我把它全删了，除在文本框上写代码，其它的都是无用的

[attach]15237[/attach]

作者: judw30 时间: 2006-1-10 21:07
我做了个查询能计算出实发合计但不减去所得税呀我重新发个包上去

作者: 一点通 时间: 2006-1-10 21:22
17楼的方法不行吗？

作者: judw30 时间: 2006-1-10 21:32
方法行但是那是界面看到的我还要把合计数存到表里就做了个查询但是查询计算出的结果没有减去所得税这是在查询里 SQL 语句写的结果不对 SELECT Sum([zwgz]+[jt]+[tgbf]+[dqbt]+[jlgz]+[fsbt]+[hlbt]+[hl]+[dsznf]+[ycf]+[yyf]+[bjf]+[jj]+[rm]-[xzkk]-IIf([lx]="退休",0,IIf([yse]>0 And [yse]<=500,[yse]*0.05,IIf([yse]>500,[yse]*0.1-25,0)))-[rm1]-[rm2]-[rm3]) AS sfhj之Sum, gz1.zh
FROM gz1
GROUP BY gz1.zh, gz1.id;

作者: 一点通 时间: 2006-1-10 21:54
真不明，能够计算的字段为何要存到表中去呢？

作者: judw30 时间: 2006-1-10 22:19
不存到查询表里我能到出文本格式吗？我要交给银行的！

作者: 一点通 时间: 2006-1-10 22:21
同样可以的，不管是报表或者导出到文件，同样可以先计算后。。。。。。。。

[此贴子已经被作者于2006-1-10 14:22:12编辑过]

作者: judw30 时间: 2006-1-11 04:40
哥哥,我怎么也没弄明白,不存入查询表内,怎么可以导出文件呀!你是怎么实现的,给点提示啊!

作者: judw30 时间: 2006-1-14 23:54
怎么样,能从查询表中计算出"所得税"的结果呢?

不好意思,一点通哥哥,怎么样,能把我后做的表,传上去呢?

作者: 一点通 时间: 2006-1-15 00:53
修改后窗体的数据源可直接引用查询的数据就可以了，现将完成了查询的方法，表中要计算的字段全删除了

[attach]15367[/attach]

作者: judw30 时间: 2006-1-15 01:24
根据您的提示,我把在窗体里用于计算的字段和写的语句删掉,直接建立文本框,在窗体里可以计算出结果,通过查询也可以计算出"应发合计"这个字段,但["所得税"(=IIf([lx]="退休",0,IIf([yse]>0 And [yse]<=500,[yse]*.05,IIf([yse]>500,[yse]*.1-25,0))))这条语句怎么在查表里体现出来呢]"扣款合计""实发合计"这个字段怎么样做呢?上面的例子是我弄完的,还是你改过的呀!还有,我怎么样,在这个帖子的基础上,把做完例子,传上去呀!

我之所以要把"实发合计"这个字段存到表里,是因为,我要把他导成EXCEL表里,然后导到文本文件,因为代发的银行要求这样做,或者您有什么更好的方法,直接导到EXCEL表里呢?

作者: judw30 时间: 2006-1-15 03:29
自已顶一下!在线等待!

作者: sgrshh29 时间: 2006-1-15 04:04
"修改后窗体的数据源可直接引用查询的数据就可以了，现将完成了查询的方法，表中要计算的字段全删除了"

直接把那个查询导出到excel就可以了。

作者: judw30 时间: 2006-1-15 04:59
没明白,上边两位说的意思啊!方便的话,把一点通版主的文件加以修改,让我参考一下呀!

作者: 一点通 时间: 2006-1-15 05:03
26楼我做的例子不是满足你的要求了吗?

作者: judw30 时间: 2006-1-15 05:13
哥哥, 您没理解的意思!我根据你的提示也做出这个效果了,在我发的另个帖子上(就是你说的要完整性的那个),现在问题是,在窗体里解决了,税的计算问题,但现在,我想把窗体里的"所得税"与"帐号"两个字段导到EXCEL表里然后在导成"文本文件"应该怎么做呢?在查询的那个表里,可以计算出"应发合计"但"所得税"怎么也根据这个"IIf([lx]="退休",0,IIf([yse]>0 And [yse]<=500,[yse]*.05,IIf([yse]>500,[yse]*.1-25,0)))"条件计算出来呢?我把它加进去了,不行呀!该怎么做呢?

作者: 一点通 时间: 2006-1-15 05:19
在查询中我已经做好了,我的提示只是在窗体中也可以引用,还有在报表中也可用这个查询

作者: judw30 时间: 2006-1-15 05:43
您没做!你做的结果是算出来"应发合计"与"yse"这两个字段,我说的是"所得税"这个字段呀!您在看看呀!谢了!

作者: 一点通 时间: 2006-1-15 05:49
我真的要晕了

作者: judw30 时间: 2006-1-15 05:50
呵呵,还没明白吗?

作者: 一点通 时间: 2006-1-15 06:05

以下是引用judw30在2006-1-14 20:59:00的发言：

没明白,上边两位说的意思啊!方便的话,把一点通版主的文件加以修改,让我参考一下呀!

哎,不好意思,我本来已经全部处理好的了,但.........,可能是电脑的问题,没有保存好更改后的数据,明天有时间再帮你完成,但我很想同你说一声,很多东西都应该要自已变通一下,举一反三,这样才能学到东西的,如果每样东西都要靠别人帮你完成,我相信这样永远学不到知识的,

作者: judw30 时间: 2006-1-15 06:16
哥哥,说的是!我也在找一些例子,慢慢,自已研究,自已弄通的记的也牢!谢谢你的忠告！！！

作者: 一点通 时间: 2006-1-15 19:43
[attach]15380[/attach]

作者: judw30 时间: 2006-1-16 01:47
谢了,收下了!

作者: panpan8202224 时间: 2006-1-18 01:58
“很多东西都应该要自已变通一下,举一反三,这样才能学到东西的,如果每样东西都要靠别人帮你完成,我相信这样永远学不到知识的”

版主说得对，楼主该打！^_^呵呵

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)