主题：[求助] 遍历所有行后执行代码

If Tables("一类疫苗出库单").current IsNot Nothing AndAlso Tables("一类疫苗出库单.一类疫苗出库表").current IsNot Nothing Then
    For Each dr As Row In Tables("一类疫苗出库表").Rows
        If dr("确认下级退回") = False Then
            MessageBox.Show("不能打印下级退回冲单,选择打印单据错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If
    Next
Else
    MessageBox.Show("没有明细,无法打印!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

Dim tm As String  = ProjectPath & "Attachments\打印一类疫苗退回冲单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\打印一类疫苗退回冲单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("一类疫苗出库单"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.print
wrt.quit