Crystal Reports中简化课程学分累加公式的方法咨询

问题背景 #

我正在为学校制作自定义成绩单，需在报表底部统计学生的已获学分：

• 多数课程为1学分
• 部分课程为0.5学分，包含：Physics、Bio、Chemistry、Personal Project、Debate I/II、Intro to Film、MMUN
• 当前编写的公式因课程组合变体过多变得复杂混乱，希望获得更简便的实现方式

当前使用的复杂公式 #

If isnull ({Export_20230208T155906_.Comment}) then Count ({Export_20230208T155906_.Course Title})
else
If {Export_20230208T155906_.Course Title} = "Personal Project" 
and {Export_20230208T155906_.Comment} = "Biology: .5" then Count ({Export_20230208T155906_.Course Title}) + 1 
else
If {Export_20230208T155906_.Course Title} = "Personal Project" 
and {Export_20230208T155906_.Comment} = "Chemistry: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1.5 
else
If {Export_20230208T155906_.Course Title} = "Personal Project" 
and {Export_20230208T155906_.Comment} = "Biology: .5 credit Chemistry: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 2 
else
If {Export_20230208T155906_.Course Title} = "IB MYP Intro to Film 1" 
and {Export_20230208T155906_.Comment} = "Biology: .5" then Count ({Export_20230208T155906_.Course Title}) + 1 
else
If {Export_20230208T155906_.Course Title} = "IB MYP Intro to Film 1" 
and {Export_20230208T155906_.Comment} = "Chemistry: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1.5 
else
If {Export_20230208T155906_.Comment} = "Biology: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + .5 
else
If {Export_20230208T155906_.Comment} = "Chemistry: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + .5 
else
If {Export_20230208T155906_.Comment} = "Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + .5 
else
If {Export_20230208T155906_.Comment} = "Biology: .5 credit Chemistry: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1 
else
If {Export_20230208T155906_.Comment} = "Biology: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1 
else
If {Export_20230208T155906_.Comment} = "Chemistry: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1 
else
If {Export_20230208T155906_.Comment} = "Biology: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1 
else
If {Export_20230208T155906_.Comment} = "Biology: .5 credit Chemistry: .5 credit Physics: .5 credit" then Count ({Export_20230208T155906_.Course Title}) + 1.5 

简化思路与实现方案 #

核心逻辑拆解 #

当前公式本质是：

1. 基础学分是课程总数（默认1学分/课）
2. 根据Comment字段中的0.5学分条目额外增加对应学分，其中Personal Project、Intro to Film有特殊规则

分步简化方案 #

1. 创建单课程学分计算的公式字段

新建一个公式字段（命名为CourseCredit），单独计算每门课程的学分：

// 定义0.5学分课程列表
local stringvar array halfCreditCourses := ["Physics", "Bio", "Chemistry", "Personal Project", "Debate I/II", "Intro to Film", "MMUN"];
local numbervar credit := 1;

// 检查当前课程是否属于0.5学分课程
if {Export_20230208T155906_.Course Title} in halfCreditCourses then
    credit := 0.5;

// 处理Comment中的额外学分
if not isnull({Export_20230208T155906_.Comment}) then (
    local numbervar extraCredit := 0;
    // 统计Comment里的0.5学分条目数量
    if InStr({Export_20230208T155906_.Comment}, "Biology") > 0 then extraCredit := extraCredit + 0.5;
    if InStr({Export_20230208T155906_.Comment}, "Chemistry") > 0 then extraCredit := extraCredit + 0.5;
    if InStr({Export_20230208T155906_.Comment}, "Physics") > 0 then extraCredit := extraCredit + 0.5;
    
    // 处理Personal Project和Intro to Film的特殊规则
    if {Export_20230208T155906_.Course Title} in ["Personal Project", "IB MYP Intro to Film 1"] then (
        credit := credit + extraCredit * 2;
    ) else (
        credit := credit + extraCredit;
    )
);

credit;

2. 计算总学分

在报表底部的汇总区域，直接对CourseCredit字段求和：

Sum({@CourseCredit})

方案优势 #

• 逻辑分层清晰，维护时只需修改课程列表或特殊规则即可
• 无需枚举所有Comment组合，通过字符串匹配自动统计，避免遗漏变体
• 代码量大幅减少，可读性和扩展性显著提升

内容的提问来源于stack exchange，提问作者AS6144