主题：[求助]关于函数

=IF(E3<NOW(),"逾期"&DATEDIF(E3,NOW(),"d")&"天注意","还有"&DATEDIF(NOW(),E3,"D")&"天到交期" )

要编写代码，具体，参考

 

http://www.foxtable.com/webhelp/scr/2471.htm

请问·如何设定·只有特定登录的人采可以看到这个提示框··如果标注OK·就不出现这样提示框·如何设定···
此主题相关图片如下：qa-5.png

还有·提示完了·怎么恢复所有产品呢··现在提示了·只显示·提示的产品·别的不显示·

1、特定的人，你可以加入判断

 

If User.Name = "总经理" Then

 

End If

 

2、如果要加入多个判断，就这样写

 

Tables("").Filter = "提示日期 <= #" & dt & "# and (标志 is null or 标注 <> 'OK')"

 

3、撤销筛选即可 http://www.foxtable.com/webhelp/scr/0129.htm

 

Dim dt As Date = Date.Today.AddDays(7) Dim dr As DataRow = DataTables("计划工单").Find("提示日期 <= #" & dt & "#") Tables("计划工单").Filter = "提示日期 <= #" & dt & "# and (订单状态 is null or 订单状态 <> 'OK')" If dr IsNot Nothing Then MessageBox.Show("请注意,请注意!如下产品即将到交货期,请尽快安排!","计划提示框",MessageBoxButtons.OK,MessageBoxIcon.Information) Tables("计划工单").Filter = "提示日期 <= #" & dt & "#" MainTable = Tables("计划工单") End If ```````````````貌似还是2个都提示·· OK··NG的·全部出现·
此主题相关图片如下：q-5-1.png

此主题相关图片如下：q-5-2.png

Dim dt As Date = Date.Today.AddDays(7)
Dim filter As String = "提示日期 <= #" & dt & "# and (订单状态 is null or 订单状态 <> 'OK')"
Dim dr As DataRow = DataTables("计划工单").Find(filter)
If dr IsNot Nothing Then
    MessageBox.Show("请注意,请注意!如下产品即将到交货期,请尽快安排!","计划提示框",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("计划工单").Filter = filter
    MainTable = Tables("计划工单")
End If

···又来麻烦您了···

 执行代码

 

http://www.foxtable.com/webhelp/scr/1432.htm