Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]汇总表做甘特图


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

主题：[求助]汇总表做甘特图
帅哥哟，离线，有人找我吗？
swimmer01
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		[求助]汇总表做甘特图  发帖心情 Post By：2018/9/20 9:52:00 [显示全部帖子]

老师好！
我有一项目进度计划，需做甘特图，按帮助文件只是将左侧任务表改为其汇总表，由于汇总表能按分组折叠，右侧的甘特图无法跟随，请教有无办法？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 10:01:00 [显示全部帖子]

多级分组折叠后左边表无法定位行及取数据？

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 10:29:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:项目计划管理.zip
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 11:19:00 [显示全部帖子]

还是不理解，处理思路，

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 11:33:00 [显示全部帖子]

已修改，全部展开应该好解决，现在是折叠后没办法，再有最后一行显示不全（我想多增加一行，这个也能解决）

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 14:46:00 [显示全部帖子]

老师：
这个项目基本按帮助文件编的，咋打开窗口时和滚动数据行快到结尾时都会报错（刚开始不会）？烦请指正一下。谢谢！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:项目计划管理.zip
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 15:06:00 [显示全部帖子]

谢谢老师，数据滚动时没问题了，但是打开窗口时依然有错误提示：
.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.8.30.1
错误所在事件：自定义函数SetGanntLeftCol
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

另外最末行还是不能完全显示。
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 15:47:00 [显示全部帖子]

谢谢！还差汇总表折叠时，甘特图的同步问题了，我再想想，不行再请教老师。

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/20 17:04:00 [显示全部帖子]

谢谢！

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2018/9/21 17:30:00 [显示全部帖子]

老师：你好！
我想按不同分组用不同颜色的线条区别
'**************DrawCell事件代码如下：
If DrawGannt Then
    Dim r As Row  = Tables("项目甘特图_Table1").Rows(e.Row.Index,True)
    Dim dt1 As Date = r("计划开始日期")
    Dim dt2 As Date = r("计划完成日期")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    If dt>=dt1 AndAlso dt<=dt2 Then
        e.StartDraw()
        
        If r.IsGroup '如果是分组行
            If r.Level = 0 Then
                e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 8, e.Width, e.Height - 16)
            ElseIf r.level = 1 Then
                e.Graphics.FillRectangle(Brushes.Sienna,e.x ,e.y + 8, e.Width, e.Height - 16)
            ElseIf r.level = 2 Then
                e.Graphics.FillRectangle(Brushes.DarkOrchid,e.x ,e.y + 8, e.Width, e.Height - 16)
            End If
        End If
        e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 8, e.Width, e.Height - 16)
       
        e.EndDraw()
    End If
End If

测了一下，不行，不知问题出在哪里了，请老师指正，谢谢！！
 回到顶部
总数 12 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.04297 秒, 7 次数据查询