在Crystal Reports 2008中解决报表间距问题的一个常见方法是使用Section Expert（部分属性）来调整各个部分之间的间距。以下是一个示例代码，演示如何使用Section Expert来调整报表中各个部分的间距。

Dim report As New ReportDocument()
report.Load("YourReportFile.rpt")

Dim section As Section
Dim sectionFormat As SectionFormat

' 获取报表中的详细数据部分（Detail Section）
section = report.ReportDefinition.Sections("DetailSection")
sectionFormat = section.SectionFormat

' 设置详细数据部分的间距
sectionFormat.EnableKeepTogether = True
sectionFormat.EnableNewPageAfter = False
sectionFormat.EnableNewPageBefore = False
sectionFormat.EnableSuppress = False
sectionFormat.BottomMargin = 0
sectionFormat.TopMargin = 0
sectionFormat.LeftMargin = 0
sectionFormat.RightMargin = 0

' 应用更改后的设置
report.ReportDefinition.Sections("DetailSection").SectionFormat = sectionFormat

' 保存报表
report.Save("YourModifiedReportFile.rpt")

在上述示例代码中，我们首先加载报表文件（YourReportFile.rpt），然后获取报表的详细数据部分（Detail Section），并使用SectionFormat对象来调整该部分的间距。您可以根据自己的需求设置不同的属性，如是否启用分页、是否禁止打印该部分以及各个边距的大小。

最后，我们将应用更改后的设置，并保存修改后的报表文件（YourModifiedReportFile.rpt）。

请注意，此代码示例仅适用于调整详细数据部分的间距。如果您需要调整其他部分的间距（如页眉、页脚等），则需要相应地修改代码。