Foxtable(狐表)用户栏目专家坐堂 → 817事务日历改进-多个日历


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

主题:817事务日历改进-多个日历

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
817事务日历改进-多个日历  发帖心情 Post By:2015/7/22 14:16:00 [显示全部帖子]

在项目中使用逛逛老师的817改进的事务日历(http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=56011&replyID=&skin=1)做了一个“日程”,现又想做一个“会议日程”,试了一下:新建一个“事务主表2”,增加全局代码,在复制之前的全局代码,然后修改(定义事务主表2),报错说代码重复,该如何操作?谢谢

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/29 10:51:00 [显示全部帖子]

能在日历中事务标签上实现弹出气泡吗?即,鼠标移动到某一事务标签上,会弹出气泡(提示信息),这个功能很实用,谢谢!~

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/29 13:29:00 [显示全部帖子]

麻烦问问,气泡的代码写在哪儿?需学习消化一下,谢谢!

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/29 16:18:00 [显示全部帖子]

谢谢。发现一个问题,刚进入日历时,气泡出现和停留时间正常。如果后退1个月后(比如到6月),则气泡只能闪现即消失,麻烦看看。

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/29 22:16:00 [显示全部帖子]

测试过了,会出现如下报错:

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图15年07月29日2206_2.jpg
图片点击可在新窗口打开查看
顺便问问,能设置气泡停留时间吗?谢谢

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/30 7:56:00 [显示全部帖子]

测试过了,不报错。
但又回到原来的问题,刚进入日历时,气泡出现和停留时间正常。如果后退1个月后(比如到6月)或改变日历大小,则气泡只能闪现即消失,麻烦看看。

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/30 13:55:00 [显示全部帖子]

我这儿测试会出现,退回6月,回到7月,再重复一次,会出现气泡闪烁,请检查,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:我的日历20140827-729(闪烁).zip



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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/8/18 9:48:00 [显示全部帖子]

我把事务主表中增加了“接收人”列,在全局代码中数据表刷新代码如下,只能按时间段筛选和加载事务主表:

 '数据表刷新方法
    Public Sub 数据刷新()
        '默认为Access数据源
        Dim Filter As String = n事务时间 & ">=#" & _表首 & "# and " & n事务时间 & "<=#" & _表尾 & "#"
        If 事务主表_dt.SourceType = 2 Then 'SQL Server数据源
            Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "'"
        End If
        事务主表_dt.LoadFilter = Filter
        事务主表_dt.LoadOrder = n事务时间
        事务主表_dt.Load()
    End Sub

1. 想增加一个筛选条件,只加载登录用户的信息,filter中增加_UserName,自己试了一下,不行,求解

2. 在日历表中增加了组合框“机组”,想选择名字后,事务主表删选出接收人为该名字的信息加载日历,该如何实现,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:我的日历20140827-729(接收人).zip



[此贴子已经被作者于2015/8/18 9:49:44编辑过]

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/8/18 9:49:00 [显示全部帖子]

请见附件,谢谢

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


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/8/18 14:22:00 [显示全部帖子]

示例项目测试正常。想问问除了'数据表刷新方法“  处有修改外,全局代码还有那些修改?我复制代码在另一项目选择机组姓名后,出现以下报错:
 
此主题相关图片如下:搜狗截图15年08月18日1412_1.jpg
按此在新窗口浏览图片
  求解,谢谢

 回到顶部
总数 15 1 2 下一页