- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于函数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103826)
-- 发布时间：2017/7/18 8:23:00
-- [求助]关于函数
=IF(E3<NOW(),"逾期"&DATEDIF(E3,NOW(),"d")&"天注意","还有"&DATEDIF(NOW(),E3,"D")&"天到交期" )
----
请问这段函数·如果在·狐表中·怎么实现··请问具体如何实现··
最好能告诉我具体如何操作··谢谢··
-- 发布时间：2017/7/18 8:33:00
--
要编写代码，具体，参考
http://www.foxtable.com/webhelp/scr/2471.htm
-- 发布时间：2017/7/18 9:40:00
-- 回复：（有点甜）要编写代码，具体，参考 ht...
请问·如何设定·只有特定登录的人采可以看到这个提示框··如果标注OK·就不出现这样提示框·如何设定···
此主题相关图片如下：qa-5.png
-- 发布时间：2017/7/18 9:45:00
--
还有·提示完了·怎么恢复所有产品呢··现在提示了·只显示·提示的产品·别的不显示·
-- 发布时间：2017/7/18 9:48:00
--
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
-- 发布时间：2017/7/18 10:59:00
-- 回复：（有点甜）1、特定的人，你可以加入判断 &nbs...
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
[此贴子已经被作者于2017/7/18 11:00:34编辑过]
-- 发布时间：2017/7/18 11:12:00
--
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
-- 发布时间：2017/7/18 12:04:00
-- 回复：（有点甜）Dim dt As Date = Date.Today.AddDay...
···又来麻烦您了···
就是关于怎么撤销提示的··
就是提示完了·以后怎么恢复···在普通用户状态下··那个撤销是·开发状态··
此主题相关图片如下：q-6.png
此主题相关图片如下：q-6.png-- 发布时间：2017/7/18 13:08:00
--
执行代码
http://www.foxtable.com/webhelp/scr/1432.htm
-- 发布时间：2017/7/18 14:46:00
-- 回复：（有点甜） 执行代码 http://www...
If DrawGannt Then
``怎么显示·未声明名称··DrawGannt ··错误代码··If DrawGannt Then··