Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甘特图使用


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

主题：甘特图使用
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  101楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/15 23:02:00 [只看该作者]

不好意思，是我字打错了，不好意思。

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/15 23:09:00 [只看该作者]

鼠标放到上面会显示，但是离开后不就消失了，在其他表也不消失，这个在那里可以改改吗？感谢 感谢 

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


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/16 8:34:00 [只看该作者]

MouseLeaveCell事件取消提示
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  104楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/17 21:36:00 [只看该作者]

If e.Col.Name = "项目内容" And "办理人" Then
    e.Table.HideToolTip()
End If 
能再帮忙看看吗？感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  105楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.Col.Name = "项目内容" OrElse e.Col.Name = "办理人" Then
    e.Table.HideToolTip()
End If 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  106楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/18 23:07:00 [只看该作者]

 是放到 mouseleavecell吗 没有什么反映呢，谢谢。

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


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

以下是引用yangwenghd在2017/9/18 23:07:00的发言：
 是放到 mouseleavecell吗 没有什么反映呢，谢谢。

 

或者你直接写

 

e.Table.HideToolTip()
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  108楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/24 14:43:00 [只看该作者]

能帮忙看看这段代码吗？不知道是那里不对， 
第一次执行没错，再错执行就不能更新了弹出的表格还是之前的内容，感谢 感谢 
比如双击单元格，然后窗口会弹出来，也会和代码执行的，一样，当关掉的后，点击其他的单元格，弹出窗口的内容还是上一个点单元格的内容，没有更新，感谢 感谢 
Dim t As Table = Tables("计划表窗口_Table9")
Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")
Dim r As Row  = Tables("计划表窗口_Table4").Rows(t.Position)
Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")
If fdr IsNot Nothing Then
    'msgbox(1)
    Forms("记事表编辑窗口").show
Else
    Forms("添加事件窗口").show
    Forms("添加事件窗口").Controls("DateTimePicker1").text = dt
    
    Forms("添加事件窗口").Controls("TextBox1").text = r("项目名称")
    Forms("添加事件窗口").Controls("TextBox2").text = r("项目流程")
End If
[此贴子已经被作者于2017/9/24 14:47:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  109楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

代码没问题上传实例测试。

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/24 16:09:00 [只看该作者]

找了一下午，终于找到原因了，是时间没有对得上，红色代表报错，是写的方法不对吗？感谢 感谢
Dim t As Table = Tables("计划表窗口_Table9")
Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")
Dim r As Row  = Tables("计划表窗口_Table4").Rows(t.Position)
Dim fdr As DataRow = DataTables("记事表").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "' and 事件日期='" & r("事件日期") & "'")

If fdr IsNot Nothing Then
    'msgbox(1)
    Forms("记事表编辑窗口").show
Else
    Forms("添加事件窗口").show
    Forms("添加事件窗口").Controls("DateTimePicker1").text = dt
    
    Forms("添加事件窗口").Controls("TextBox1").text = r("项目名称")
    Forms("添加事件窗口").Controls("TextBox2").text = r("项目流程")
End If
[此贴子已经被作者于2017/9/24 16:13:51编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询