主题：多行分别赋值的问题

老师，有有个报表打印按钮，报表中涉及到从审核意见表中找到对应的订单（用Id来识别）的复核日期，投标保证金表中有Id，与审核意见表中的Id是对应关系，复核日期就是对应审核意见表中最后一次审核的日期，当选择多行时，复核日期这儿应该怎么写呢？

Dim rs As List(of Row) = Tables("打投标保证金").GetCheckedRows
If rs.Count > 0 Then  '如果存在符合条件的行
    Dim tm As String  =  ProjectPath &  "Attachments\投标保证金支付凭证.docx" '指定模板文件
    Dim fl1 As String =  ProjectPath &  "Reports\投标保证金支付凭证.docx" '指定目标文件
    Dim fl2 As String =  ProjectPath &  "Reports\投标保证金支付凭证.pdf" '指定目标PDF文件
    Dim wrt As New WordReport(Tables("打投标保证金"),tm,fl1) '定义一个WordReport
    Dim dr As DataRow = DataTables("用户管理").SQLFind("[职务] = '财务部制单'")
    If dr IsNot Nothing Then
        wrt.Replace("[制单人]",dr("姓名"))  '用代码替换制单人
    End If
    Dim dr1 As DataRow = DataTables("用户管理").SQLFind("[职务] = '财务部经理'")
    If dr1 IsNot Nothing Then
        wrt.Replace("[复核人]",dr1("姓名"))  '用代码替换复核人
    End If

    Dim dr2 As DataRow = DataTables("审核意见表").SQLFind("[表名称] = '" & "打投标保证金" & "'","审核日期 DESC")
    If dr2 IsNot Nothing Then
        wrt.Replace("[复核日期]",dr2("审核日期"))  '用代码替换复核日期
    End If
    For Each  r As Row In rs '逐行生成报表
        wrt.BuildOne(r)
        r.Checked =False
    Next
    wrt.SaveToPDF(fl2) '保存为PDF文件
    wrt.Quit() '退出
    Dim Proc As New Process '打开PDF文件
    Proc.File = fl2
    Proc.Start()