Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有1839人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
187398
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:191 威望:0 精华:0 注册:2016/12/7 18:20:00
[求助]  发帖心情 Post By:2017/3/5 14:15:00 [显示全部帖子]

请问,狐表能不能做一个到期提醒啊大神们,我做一个表,在表里有一个预置时间,希望到了那那天或前一天时,我一打开表就会发出一个提醒,这个能做到吗?

求大神帮忙

[此贴子已经被作者于2017/3/5 14:15:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
187398
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:191 威望:0 精华:0 注册:2016/12/7 18:20:00
  发帖心情 Post By:2017/3/6 13:09:00 [显示全部帖子]

请问这个自定义样式是什么呢,该怎么做

 回到顶部
帅哥哟,离线,有人找我吗?
187398
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:191 威望:0 精华:0 注册:2016/12/7 18:20:00
  发帖心情 Post By:2017/3/6 15:03:00 [显示全部帖子]

我照这个方法做了,可是做到最后显示错,如下:

.NET Framework 版本:2.0.50727.8000
Foxtable 版本:2016.7.29.1
错误所在事件:项目,AfterOpenProject
详细错误信息:
该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。

请问是什么情况?代码是原样,我就改了数据列名称


 回到顶部
帅哥哟,离线,有人找我吗?
187398
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:191 威望:0 精华:0 注册:2016/12/7 18:20:00
  发帖心情 Post By:2017/3/7 15:50:00 [显示全部帖子]

感谢,感觉这个软件功能强大啊,只是我自己是个虾咪。最后能再补充个问题吗?这个代码能不能实现这样:有一字符列,当在这个字符列输入“已处理”日期例显示为样试2,以后打开表时也不会提示和筛选出已处理的项。如果可以就太完美了


 回到顶部
帅哥哟,离线,有人找我吗?
187398
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:191 威望:0 精华:0 注册:2016/12/7 18:20:00
  发帖心情 Post By:2017/3/8 14:00:00 [显示全部帖子]

If e.col.Name = "到期日期" Then
    If
e.Row.IsNull("到期日期") = False
        If
e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style =
"到期"
       
End If
    End
If
End
If

这段代码怎么加入一个条件,使已处理的行数据显示为“到期2 ”的样式

我怎么加都错(因为我真是个麻虾),语法要怎么去学啊,请指教


 回到顶部
帅哥哟,离线,有人找我吗?
187398
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:18 积分:191 威望:0 精华:0 注册:2016/12/7 18:20:00
  发帖心情 Post By:2017/3/8 14:59:00 [显示全部帖子]

谢谢,终于看懂了一个并成功改了一下给一百个赞:

If e.Col.Name = "日期" Then
    If e.Row.IsNull("日期") = False
        If e.Row("日期") < Date.Today.AddDays(2) Then
            If e.Row("条件2") = "是" And e.Row("条件1") = "是" Then
                e.Style = "样式1"
            Else
                If e.Row("条件2") = "是" Then
                    e.style = "样式2"
                Else
                    e.Style = "样式3"
                End If
            End If
        End If
    End If
End If


 回到顶部