以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 到期提醒  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147821)
--  作者：liumiao123
--  发布时间：2020/3/25 9:10:00
--  [求助] 到期提醒
有个逻辑列·名为 状态·打勾了就不计算提醒行·
请老师看下哪里错了·


Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("主生产计划表").Find(("交货日期 <= #" & dt & "#") & (("状态" = True Then))
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到交期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("主生产计划表").Filter = "交货日期 <= #" & dt & "#"
    MainTable = Tables("主生产计划表")
End If
--  作者：有点蓝
--  发布时间：2020/3/25 9:14:00
--  

Dim dr As DataRow = DataTables("主生产计划表").Find("交货日期 <= #" & dt & "# and 状态 = True ")