以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  甘特图行不能完整显示的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91121)

--  作者:HappyFt
--  发布时间:2016/9/29 20:11:00
--  甘特图行不能完整显示的问题

在编码绘制甘特图中有如下问题


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

如上图,甘特图中有一个问题,当向下滚动时如何容器的高度刚好不是任务行的整数倍,最后一行只能看到一半,因为

 e.Table.TopVisibleRow = e.Table.TopVisibleRow \'此行不可少,确保第一个可见行完整显示

这句代码让最上面一行完整显示导致最下面就可能显示不完整,怎么样写代码才能实现

 

当滚动条位于上半部分时就上第一行完整可见,反之,滚动条位于下半份时就让

 

e.Table.BottomVisibleRow = e.Table.BottomVisibleRow  \'此行不可少,确保最后一个可见行完整显示

 

即如何判断滚动条是在上半还是下半,代码怎么写?或者还有其他更好的办法?

 

谢谢!


--  作者:有点蓝
--  发布时间:2016/9/29 21:22:00
--  
判断TopVisibleRow 相对e.Table.Rows.Count的行数位置
--  作者:HappyFt
--  发布时间:2016/9/30 11:15:00
--  
谢谢,但是这样用法会出错唉
e.Table.BottomVisibleRow = e.Table.BottomVisibleRow 
有没让最下面一行全部可见要怎么写?

--  作者:chnfo
--  发布时间:2016/9/30 11:36:00
--  
谢谢,但是这样用法会出错唉
e.Table.BottomVisibleRow = e.Table.BottomVisibleRow 
有没让最下面一行全部可见要怎么写?

这都是一样的,有什么意义?
e.table.current = e.table.BottomVisibleRow 

--  作者:有点蓝
--  发布时间:2016/9/30 11:38:00
--  
Tables("表A").Position = Tables("表A").Rows.Count - 1
--  作者:有点蓝
--  发布时间:2016/9/30 11:41:00
--  
e.table.Position  =  e.table.BottomVisibleRow