主题：请教excel报表关联表的细节区定义

这次代码测试可以。

Select Case e.Book.TempLate
    Case "经销商调查表"
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("附属信息")
        For i As Integer = 1 To 3
            If i <= drs.Count Then
                e.Book.Marks("授权品牌" & i) = drs(i-1)("授权品牌")
                e.Book.Marks("改装厂" & i) = drs(i-1)("改装厂")
            Else
                e.Book.Marks("授权品牌" & i) = ""
                e.Book.Marks("改装厂" & i) = ""
            End If
        Next
End Select

呵呵，楼上果然正解！再次感谢！！你学的真扎实……佩服啊！