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

roych

贫龙 发表于 2011-12-19 16:12
1-9年级共29个班级

学费：

每个班级没有列出来啊，例如二年级有几个班。
我还是那句话，基础数据还是要处理好，不能一蹴而就的。有时间我再写一个系统给你试试。

贫龙

Henry D. Sy 发表于 2011-12-19 16:42
表中学生的记录太少，不足以测试！
仅有的几条记录，还多数是空值
自己想学，不能用这种很不耐烦的态度！

谢谢，我一定提供所有资料。

贫龙

roych 发表于 2011-12-19 17:03
每个班级没有列出来啊，例如二年级有几个班。
我还是那句话，基础数据还是要处理好，不能一蹴而就的。 ...

班级
101班
102班
103班
104班
105班
106班
107班
201班
202班
203班
204班
301班
302班
303班
304班
401班
402班
403班
404班
501班
502班
503班
601班
602班
701班
702班
801班
802班
901班

贫龙

有谁可以帮帮我啊{:soso_e149:}{:soso_e150:}

贫龙

有谁可以帮帮我啊！？{:soso_e149:}{:soso_e150:}

Henry D. Sy

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

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

贫龙

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

Henry D. Sy

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

应该用表格的方式贴出来

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

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