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


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

主题:甘特图问题

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
甘特图问题  发帖心情 Post By:2015/1/26 19:38:00 [只看该作者]

帮助中的甘特图,在新增行后没有自动更新,是CaseStudy目录下的文件:编码绘制图.Table的项目,
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

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


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

 重新生成一次 BuildGanttTable


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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/1/26 20:08:00 [只看该作者]

这样行吗?DataColChanged写
Select Case e.DataCol.Name
    Case "开始日期","结束日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("开始日期") OrElse dr.IsNull("结束日期")  Then
            Functions.Execute("BuildGanttTable")
        Else
            Return
        End If
End Select

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


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

 如果要重新生成,就要运行 Functions.Execute("BuildGanttTable")

 

 具体我不知道你想怎样。


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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/1/26 20:25:00 [只看该作者]

比照CaseStudy目录下的文件:编码绘制图.Table的项目做的,
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

弹出
图片点击可在新窗口打开查看此主题相关图片如下:无标题1.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:无标题2.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2015-1-26 20:26:51编辑过]

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


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

 出错例子发上来。

 

 照着做,就不可能有问题。


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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/1/26 20:37:00 [只看该作者]

选择目录树时还跳出
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:全局表事件,AfterSelRangeChange
详细错误信息:
未将对象引用设置到对象的实例。

没想通这和全局表AfterSelRangeChange有什么关系,整个和甘特图相关的窗体及表中都无牵涉全局表AfterSelRangeChange的代码


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


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

 例子

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/2/3 11:15:00 [只看该作者]

这是全局表的AFTERSELRANGE事件的代码
全部注释后正常了
'Dim Sum As Double
'Dim AVG As Double
'With e.Table
 '   Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
  '  AVG = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
'End With
'StatusBar.Message3="合计:" & Sum & ""
但我又需要这段代码?请解释下原因

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


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2015/2/3 11:17:00 [只看该作者]

折腾了几天,实在找不出原因,参照帮助中的例子做的,只因为上面这段代码影响

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