- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]官方甘特图的范例的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135527)
-- 发布时间：2019/5/28 23:19:00
-- [求助]官方甘特图的范例的问题
我把窗口边缘往左拉动之后，最下面几行就显示不出来了。这种情况可以解决吗？
此主题相关图片如下：qq截图20190528231329.jpg
-- 发布时间：2019/5/29 9:49:00
--
执行代码，把行高设置同一
Tables("任务").DefaultRowHeight = 20
Tables("窗口1_Table2").DefaultRowHeight = 20
-- 发布时间：2019/5/29 12:08:00
--
还是不行呀
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2019/5/29 12:31:00
--
你要隐藏滚动条？
Tables("任务").grid.ScrollBars = 2 \'0 无 1 横向 2 纵向 3 横向纵向
Tables("窗口1_table2").grid.ScrollBars = 2 \'0 无 1 横向 2 纵向 3 横向纵向
-- 发布时间：2019/5/29 13:15:00
--
这样会好一点，但是，我如果下面有一个窗口停靠在下面的话，还是会有问题
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2019/5/29 13:24:00
--
有什么问题？截图说明
-- 发布时间：2019/5/29 14:06:00
--
此主题相关图片如下：2.jpg
最下面的一栏数据没办法显示出来
-- 发布时间：2019/5/29 14:31:00
--
修改代码
If Forms("窗口1").Opened Then
Dim tbl As Table = Tables("窗口1_Table2")
tbl.ScrollPosition = e.Table.ScrollPosition
Functions.Execute("SetGanntLeftCol")
End If
----------------------------
Dim tbl As Table = Tables("任务")
tbl.ScrollPosition = e.Table.ScrollPosition
-- 发布时间：2019/5/29 14:55:00
--
这个可以看到最下面了。但是诺不过去了，最左边没办法显示了。
此主题相关图片如下：22ad5b31274d2343a6e129fc902c915e.png
-- 发布时间：2019/5/29 15:24:00
--
1、你隐藏滚动条啊；
2、看看 http://www.foxtable.com/webhelp/scr/2357.htm