以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现“审核结果”列的内容为<审核未通过>时，不打印选定单位的个人审批表的打印谢谢！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7301)
--  作者：雨中的泪
--  发布时间：2010/6/5 13:51:00
--  如何实现“审核结果”列的内容为<审核未通过>时，不打印选定单位的个人审批表的打印谢谢！！！
如何实现“审核结果”列的内容为<审核未通过>时，不打印选定单位的个人审批表的打印谢谢！！！
--  作者：雨中的泪
--  发布时间：2010/6/5 13:53:00
--  

\'\'\'
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

 

这样做不对
--  作者：雨中的泪
--  发布时间：2010/6/5 14:20:00
--  
老大帮忙看看，谢谢
--  作者：雨中的泪
--  发布时间：2010/6/5 15:27:00
--  
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2010/6/5 16:32:00
--  
你最大的问题，就是如何让别人明白你的问题。
--  作者：mr725
--  发布时间：2010/6/5 16:33:00
--  

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

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

[此贴子已经被作者于2010-6-5 16:33:02编辑过]
--  作者：雨中的泪
--  发布时间：2010/6/5 17:52:00
--  

1、先按单位筛选出行

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

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:实例一.table
--  作者：雨中的泪
--  发布时间：2010/6/5 18:06:00
--  

\'\'\'
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

 

这样做出来不对呀
--  作者：雨中的泪
--  发布时间：2010/6/5 19:05:00
--  

DataTables 的问题

 
--  作者：雨中的泪
--  发布时间：2010/6/5 20:11:00
--  
\'\'\'
Tables("调标表").Filter =""   \'取消筛选
Tables("单位名称").Filter =""   \'取消筛选
Dim ck As WinForm.ComBoBox = e.Form.Controls("输入单位名称")
Tables("调标表").Filter = "[单位名称] = \'" & ck.value & "\'"  \'筛选出指定单位名称的行
With Tables("调标表")
    Dim r As Integer
    r = .Find("审核未通过",0,"审核结果",False,False,True)
    If r > - 1 Then \'如果找到符合条件的行
.Position = r \'则选择该行
MessageBox.Show("有审核未通过的数据,不能打印个人审批表!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return       \'终止代码的执行
Else
MessageBox.Show("个人审批表打印完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("调标表").Filter =""   \'取消筛选
Tables("单位名称").Filter =""   \'取消筛选
End If
End With