- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 筛选问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27537)
-- 发布时间：2013/1/4 10:30:00
-- 筛选问题
Tables("二保办理").Filter = "[办理日期] < #" & dt & "#" And " [合格证号] Is null "
这句筛选有什么问题吗？
执行后提示如图
-- 发布时间：2013/1/4 10:33:00
--
全部代码是
Dim dt As Date = Date.Today
Dim dr As DataRow = DataTables("二保办理").Find("办理日期 < #" & dt & "#" And "合格证号 = \'\'")
If dr Is Nothing Then
MessageBox.Show("没有有漏办的二保!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
MessageBox.Show("有漏办办理的二保,请逐个输入合格证号和合同号后打印","提示",MessageBoxButtons.OKCancel)
Tables("二保办理").Filter = "[办理日期] < #" & dt & "#" And " [合格证号] Is null "
MainTable = Tables("二保办理")
End If
-- 发布时间：2013/1/4 10:35:00
--
Tables("二保办理").Filter = "[办理日期] < #" & dt & "# And [合格证号] Is null "
这样写写看看。