用IF语句能实现这样的循环吗？

贫龙

假如 Me.收费项目="学费" 且 Me.班级="103班"或"105班" 时
若   Me.入学日期在2010年2月以前
Me.收费金额="1000"
若   Me.入学日期在2010年2月-2011年3月
Me.收费金额="1300"
若   Me.入学日期在2011年3月-2011年9月
Me.收费金额="1500"
否则
Me.收费金额="2000"
假如 Me.收费项目="学费" 且 Me.班级="101班"或"102班"或"104班"或"106班" 时
若   Me.入学日期在2010年2月以前
Me.收费金额="1200"
若   Me.入学日期在2010年2月-2011年3月
Me.收费金额="1500"
若   Me.入学日期在2011年3月-2011年9月
Me.收费金额="1800"
否则
Me.收费金额="2100"
假如 Me.收费项目="学费" 且 Left(Me.班级, 1) = 2或3或4或5或6 时
若   Me.入学日期在2010年2月以前
Me.收费金额="1300"
若   Me.入学日期在2010年2月-2011年3月
Me.收费金额="1600"
若   Me.入学日期在2011年3月-2011年9月
Me.收费金额="1900"
否则
Me.收费金额="2200"
假如 Me.收费项目="学费" 且 Left(Me.班级, 1) = 7或8或9 时
若   Me.入学日期在2010年2月以前
Me.收费金额="1400"
若   Me.入学日期在2010年2月-2011年3月
Me.收费金额="1700"
若   Me.入学日期在2011年3月-2011年9月
Me.收费金额="2000"
否则
Me.收费金额="2500"

或者不筛选日期，直接赋4个值到金额里，采用下拉框显示，到底怎么样最好呢？
要把这些转换成代码，怎么写啊？？？

Henry D. Sy

一共29个班，每个班又分4个入学时间段，4*29=108条记录，保存到一张学费表！
其他各费用分门别类的各自保存在相应的表上。
然后再说第二步。。。。。。。

贫龙

如果将收费标准简化，是不是比较好做呢，不用考虑以后更改数据标准麻烦，反正一年就二次更改。
这个是不是用组合框联动就可以搞定啊，但有几个还是要判断班级，要怎么做呢？

班级	学费	资料费	中餐	兴趣班	校讯通	校服	书包	校车	早餐
103班	1850;2000;2300	300	550	200	30	30;50;75;80;120	35	260;450	300
105班
101班	2000;2400;2700;3100	400	600
102班
104班
106班
107班
201班
202班
203班
204班
301班
302班
303班
304班
401班
402班
403班
404班
501班
502班
503班
601班
602班
701班	2300;2600;3000;3500	500	650
702班
801班
802班
901班		800

ycxchen

Henry D. Sy 发表于 2011-12-25 19:38
个人感觉这样硬编码不好，维护比较困难（比如费用变更）
应该用表来保存这些费用，然后用查询得到费用。

支持！

roych

Henry D. Sy 发表于 2011-12-25 19:38
个人感觉这样硬编码不好，维护比较困难（比如费用变更）
应该用表来保存这些费用，然后用查询得到费用。

的确不好。
从原则上来说，缴费应该只跟年级有关，而不该再和入学日期有关。——莫非留学生（留级的学生就可以少花些钱读书）？
如果所有费用只跟年级有关，那么可以整合在一起，但就楼主的问题而言，既有只跟年级有关的（例如资料费什么的），也有固定的（例如体检），还有校车跟长短线有关……这些再和学费整合在一起并不容易。
当然可以建立多个表和编号字段。只是录入时较为麻烦，只能分多个表录入再用联合查询汇总（一张表多个编号字段，当录入多个数据时，始终不是个好办法）。

Henry D. Sy

个人感觉这样硬编码不好，维护比较困难（比如费用变更）
应该用表来保存这些费用，然后用查询得到费用。

roych

1、表需要重新设计，带条件的数据应当分离出来（例如资料费、中餐费、学费等），成为独立的一张表。
2、如果非要在选择里统一的话，可以考虑加上计算公式的字段，用Eval函数处理。
先贴一段代码供参考（缴费部分已结束。校车安排、退费等等模块还在写。不过今天是圣诞节，想休息下。）：
代码说明：
新建模块，粘贴代码并保存模块，然后新建查询，在查询窗格里输入自定义字段，例如：学费:Schooling([入学日期], [入学班级])

1. 
   
2. Function Schooling(SclDate As Date, ClassNo As String) As Currency
   
3. Schooling = 0
   
4. Select Case SclDate
   
5.     Case Is < #3/1/2009#
   
6.         Select Case ClassNo
   
7.             Case "103", "105"
   
8.                 Schooling = 1850
   
9.             Case "701", "702", "801", "802", "901"
   
10.                 Schooling = 2300
    
11.             Case Else
    
12.                 Schooling = 2000
    
13.         End Select
    
14.     Case Is < #10/1/2009#
    
15.         Select Case ClassNo
    
16.             Case "103", "105"
    
17.                 Schooling = 2000
    
18.             Case "701", "702", "801", "802", "901"
    
19.                 Schooling = 2600
    
20.             Case Else
    
21.                 Schooling = 2400
    
22.         End Select
    
23.     Case Is < #3/1/2011#
    
24.         Select Case ClassNo
    
25.             Case "103", "105"
    
26.                 Schooling = 2300
    
27.             Case "701", "702", "801", "802", "901"
    
28.                 Schooling = 3000
    
29.             Case Else
    
30.                 Schooling = 2700
    
31.         End Select
    
32.     Case Else
    
33.         Select Case ClassNo
    
34.             Case "103", "105"
    
35.                 Schooling = 3000
    
36.             Case "701", "702", "801", "802", "901"
    
37.                 Schooling = 3500
    
38.             Case Else
    
39.                 Schooling = 3100
    
40.         End Select
    
41. End Select
    
42. End Function
    

复制代码

Henry D. Sy

贫龙 发表于 2011-12-21 16:22
所有的都提供了啊，测试记录也加了。

应该用表格的方式贴出来

贫龙

所有的都提供了啊，测试记录也加了。

Henry D. Sy

贫龙 发表于 2011-12-21 07:59
有谁可以帮帮我啊！？

你都不贴资料，如何帮忙？