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