- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何让动态切换表统一宽度 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14587)
-- 发布时间：2011/11/24 17:00:00
-- 如何让动态切换表统一宽度
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
麻烦帮忙看一下，以下代码是点击目录树节点，在右侧分区显示对应的表，问题是显示出来的表的列宽有点小，能否限定每个显示的表的列宽度度？
If e.node.level = 0 Then
Tables("参数设计_table1").DataSource =DataTables(e.node.Text)
End If
-- 发布时间：2011/11/24 17:06:00
--
看看这个：
http://www.foxtable.com/help/topics/2377.htm
-- 发布时间：2011/11/24 17:47:00
--
table还有个AutoSizeCols可以设置自动列宽。
-- 发布时间：2011/11/24 18:47:00
--
不明白如何与帮助文档的说明进行联系，能否帮忙说明一下具体一点
-- 发布时间：2011/11/24 18:48:00
--
不明白如何与帮助文档的说明进行联系，能否帮忙说明一下具体一点
-- 发布时间：2011/11/24 22:19:00
--
例如：
if e.node.level = 0 Then
Tables("参数设计_table1").DataSource =DataTables(e.node.Text)
Tables("参数设计_table1").AutoSizeCols
End If
-- 发布时间：2011/11/25 9:54:00
--
狐爸， If e.node.level = 0 Then Tables("窗口1_table1").DataSource =DataTables(e.node.Text) Tables("窗口1_table1").AutoSizeCols ‘这是为了让所有表的列宽以实际宽度出现。但我是想让所有表的宽度固定为300 End If 所有表的宽度固定为300 如何才能做到？
-- 发布时间：2011/11/25 10:06:00
--
if e.node.level = 0 Then
Tables("参数设计_table1").DataSource =DataTables(e.node.Text)
For each cl as Col in Tables("参数设计_table1").Cols
cl.Width = 300
next
End If
-- 发布时间：2011/11/25 11:45:00
--
谢谢狐爸，这个问题解决了。
随之出来的一个问题是，如何让这个窗体在启动的时候就预先加载其中一个表，（通常启动这个窗体时，首先显示的是一个空白的表）
-- 发布时间：2011/11/25 11:48:00
--
呵呵，这个怎么能成为问题呢？ 在窗口的afterLoad事件设置代码，或者在窗口设计的时候，设置Table控件的属性。
最好将窗口设计中的《窗口中的Table》重看两遍。