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


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

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


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

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


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

感谢 感谢 太感谢了 如果添加一个控件 ，DateTimePicker5  和按钮 点击按钮 然后 把DateTimePicker5时间跳到 Dim dt As Date = Date.Today.AddDays(500) 这个位置可以吗？感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  83楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

问问 怎么在改变日期后刷新图表啊
或者设计一个按钮 刷新图表应该怎么写呀，感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  84楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

感谢了，搞这么久还是不行 感谢 感谢 
[此贴子已经被作者于2017/9/14 1:19:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  85楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用yangwenghd在2017/9/14 0:47:00的发言：
问问 怎么在改变日期后刷新图表啊
或者设计一个按钮 刷新图表应该怎么写呀，感谢 感谢 

 

参考你的 button5 控件的代码啊。
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  86楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

好的  感谢 感谢 
问问可以和事件表同步吗？不是当事件表的相同的项目名称和相同的项目流程会根据时间显示到甘特图吗？可以在点击选择这个显示的点的同时 事件表显示的这行也被选中啊！感谢 感谢
就是在点击红点的时候 记事表 （根据项目名称 项目流程 日期显示的红点的表）也选中对应的行，感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170914202505.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/9/14 20:26:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  87楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


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

如果双击的甘特图时候，可以把甘特图点击的个子是否有红点所执行的代码分开吗？

比如 如果双击甘特图的格子有红点执行 红色代码，没有红点执行 黑色代码，感谢 感谢 

Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
Forms("事件状态窗口").show
Forms("事件状态窗口").Controls("DateTimePicker1").text = dt


Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
Forms("添加事件窗口").show
Forms("添加事件窗口").Controls("DateTimePicker1").text = dt
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  89楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 根据dt的值查找数据

 

    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(fdr("办理人") & " " & fdr("备注"))
    End If

 

http://www.foxtable.com/webhelp/scr/0396.htm

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


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

谢谢 ，能帮忙看看填双击 红点和非红点所弹出不同的窗口应该怎么改呀，感谢 感谢 
比如甘特图双击有红点，执行红色代码，双击没有红点的格，执行黑色的代码，感谢 感谢

Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
Forms("事件状态窗口").show
Forms("事件状态窗口").Controls("DateTimePicker1").text = dt


Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
Forms("添加事件窗口").show
Forms("添加事件窗口").Controls("DateTimePicker1").text = dt
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询