Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]到时间提示窗口


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

主题：[求助]到时间提示窗口
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/10/19 20:08:00 [只看该作者]

高手:刚看了一下,不知你这个代码写在什么地方,怎么写的,还有一个这个提示信息,最好是在到达时间之前2分钟时进行提示(当然这个2分钟可以跟据需要进行更改),同时,一个客户的提示信息只有一个窗口在不停地闪烁,一但点击确定后,这条信息的提示窗口即关闭,其他到时间的客户提示仍继续闪烁,请赐教,谢谢!!!
 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/10/19 20:40:00 [只看该作者]

高手,我已经找到了原因,谢谢你的赐教!!!

 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/10/19 21:12:00 [只看该作者]

请教高手:刚才我在试用的时候,发现一个问题:就是在输入其他客户信息时,某条客户显示联系提示信息,点击确定后，刚刚输入的客户信息却被删除，即使保存也会被删除，请教代码如何修改才不会出现这个问题，请赐教，谢谢！！！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/10/19 22:04:00 [只看该作者]

修改该下面的代码

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("表A").Find("C <= #" & dt & "#")
If dr IsNot Nothing Then
    Sendkeys.SendWait("~")
    MessageBox.Show("有客户需要联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("表A").Filter = "C <= #" & dt & "#"
    MainTable = Tables("表A")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/10/20 7:09:00 [只看该作者]

谢谢高手,只是有一点,就是显示提示信息时,如果在输入开始时间即A列时,会出现崩溃现象,在其他列输入时无此现象,请问能否再修改,谢谢!!!

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/10/20 21:17:00 [只看该作者]

 可以不弹出msgbox来提示，直接在界面的底部提示的。

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("表A").Find("C <= #" & dt & "#")
If dr IsNot Nothing Then
    'Sendkeys.SendWait("~")
    'MessageBox.Show("有客户需要联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    StatusBar.Message1 = "有客户需要联系!"
    StatusBar.Refresh
    Tables("表A").Filter = "C <= #" & dt & "#"
    MainTable = Tables("表A")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/10/20 21:33:00 [只看该作者]

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("表A").Find("C <= #" & dt & "#")
If dr IsNot Nothing Then
    'Sendkeys.SendWait("~")
    MessageBox.Show("有客户需要联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    'StatusBar.Message1 = "有客户需要联系!"
    'StatusBar.Refresh
    'Tables("表A").Filter = "C <= #" & dt & "#"
    MainTable = Tables("表A")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/10/21 19:55:00 [只看该作者]

这也很不错,谢谢甜!!!

 回到顶部
帅哥哟，离线，有人找我吗？
ztmdnzc
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：4167 威望：0 精华：0 注册：2013/1/18 13:34:00 		  发帖心情 Post By：2014/1/11 21:11:00 [只看该作者]

("~")是神马意思？

 回到顶部
总数 19 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 4 次数据查询