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

将

Dim dr As DataRow
dr = DataTables("调标表").Find("审核结果 = '审核未通过'")
If dr IsNot Nothing Then '如果找到的话

改成：

Dim n As Integer = DataTables("调标表").Compute("Count(审核结果)","审核结果 = '审核未通过' And [单位名称] = '" & ck.value & "'")
If n > 0  Then '如果找到的话

'''
Tables("调标表").Filter =""   '取消筛选
Tables("单位名称").Filter =""   '取消筛选
Dim Q As  String
Q = e.Form.Controls("输入单位名称").Value
If Q = "" then   
if MessageBox.Show("你未选择需要打印个人审批表的单位，是否全数据库人员打印个人审批表？", "提示", MessageBoxButtons.YesNo,MessageBoxIcon. Question) = DialogResult.Yes then

If DataTables("调标表").DataRows(0).IsNull("审核结果") Then
MessageBox.Show("数据内有未审核的数据,不能打印个人审批表!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
 Return       '终止代码的执行
Else
End If

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

With Tables("调标表")
    Dim r As Integer
    r = .Find("审核未通过", .RowSel + 1, "审核结果"，False, False, True)
    If r > -1 Then '如果找到符合条件的行
.Position = r '则选择该行
MessageBox.Show("你选择的" & Q & "内有审核未通过的数据,不能打印个人审批表!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("调标表").Filter =""   '取消筛选
Tables("单位名称").Filter =""   '取消筛选
Return       '终止代码的执行
Else
MessageBox.Show("你选择的" & Q & "个人审批表打印完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("调标表").Filter =""   '取消筛选
Tables("单位名称").Filter =""   '取消筛选
End If
End With
End If

这样实现的不知道还有其他方法没？

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

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

前提：

1、<审核结果>列是标志列，如果数据未审核过，该列为空；如果数据审核过，该列填入的内容是“审核通过”或“审核未通过”

2、窗口设计有单位选择组合框，用于选择需要打印个人审批表的单位

目的：

1、当未选择单位，直接点击《确定》按钮时，提示“你未选择需要打印个人审批表的单位，是否全数据库人员打印个人审批表？"，选择"是"时再判断数据库内的人员数据是否全部审核过，如果有未审核的数据提示"数据内有未审核的数据,不能打印个人审批表!!!"，终止代码的执行；选择“否”时，直接终止代码的执行；

2、当选择单位后，点击《确定》按钮时，筛选出该单位的所有数据，然后判断这些数据是否审核过，如果有未审核的数据提示"你选择的" & Q & "有未审核的数据,不能打印个人审批表!!!",然后终止代码的执行；如果数据都审核过，接着判断是否有审核未通过的数据，提示 "你选择的" & Q & "内有审核未通过的数据,不能打印个人审批表!!!"，然后终止代码的执行；

就是这样的！！！！