标题：如何实现“审核结果”列的内容为<审核未通过>时，不打印选定单位的个人审批表的打印谢谢！！！

'''
Tables("调标表").Filter =""   '取消筛选
Tables("单位名称").Filter =""   '取消筛选
Dim ck As WinForm.ComBoBox = e.Form.Controls("输入单位名称")
Tables("调标表").Filter = "[单位名称] = '" & ck.value & "'"  '筛选出指定单位名称的行
Dim dr As DataRow
dr = DataTables("调标表").Find("审核结果 = '审核未通过'")
If dr IsNot Nothing Then '如果找到的话
MessageBox.Show("有审核未通过的数据,不能打印个人审批表!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("调标表").Filter =""   '取消筛选
Tables("单位名称").Filter =""   '取消筛选
Return       '终止代码的执行
Else
MessageBox.Show("个人审批表打印完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("调标表").Filter =""   '取消筛选
Tables("单位名称").Filter =""   '取消筛选
End If

这样做不对

Tables("调标表").Filter = ""[单位名称] = '" & ck.value & "' and [审核结果] <> '审核未通过'"

这样筛选后再打印不就可以了吗?  

1、先按单位筛选出行

2、判断筛选出来的行中的“审核结果”列是否存在“审核未通过”的行

3、如果筛选出来的行的“审核结果”列存在“审核未通过”则提示“有审核未通过的数据，不能打印个人表！！！”（不准打印按该单位名称筛选出来的所有数据）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例一.table

DataTables 的问题