如何在Visual Studio 2019的Crystal Reports中为字符串动态添加末尾点？

原代码的问题在于用固定总长度计算补点数量，但报表中文本会自动换行，每行的实际显示长度不同，导致补的点无法和每行末尾对齐，以下是两种可行的解决方法：

方法1：可视化叠加法（推荐，无需公式） #

通过两个文本对象叠加实现精准对齐：

• 插入一个文本对象（内容框），绑定你要显示的字段{EmissaoLicenca.DispostoOrganicoLicenca}，设置左对齐，背景色设为白色（确保不透明），调整到需要的宽度。
• 再插入一个文本对象（点框），输入足够多的英文点（比如........................................................................），长度超过内容框的宽度，同样设为左对齐，调整大小和位置与内容框完全重合。
• 右键点击内容框，选择「置于顶层」，这样文本内容会覆盖下方的点，每行未填满的区域自动显示点，完美对齐到行尾。

方法2：公式拆分每行补点（适合精确控制场景） #

如果必须用公式实现，需先使用等宽字体（如Courier New），确保字符宽度一致：

1. 测试你的文本对象宽度能容纳的最大等宽字符数（比如80个）。
2. 创建新公式字段，粘贴以下代码：

local numbervar maxLineChars := 80; // 替换为你的实际每行最大字符数
local stringvar rawText := {EmissaoLicenca.DispostoOrganicoLicenca};
local stringvar finalText := "";
local stringvar currentLine;

while len(rawText) > 0 do
(
    // 截取当前行，避免在单词中间截断（不需要的话可直接用mid(rawText, 1, maxLineChars)）
    if len(rawText) > maxLineChars then
        currentLine := left(rawText, instrrev(rawText, " ", maxLineChars))
    else
        currentLine := rawText;
    
    // 补点到指定长度
    currentLine := currentLine + replicatestring(".", maxLineChars - len(currentLine));
    finalText := finalText + currentLine + chr(13);
    
    // 截取剩余文本
    rawText := mid(rawText, len(currentLine)+1);
);

// 移除最后多余的换行符
left(finalText, len(finalText)-1)

3. 将公式字段拖到报表中，设置为等宽字体即可。

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