Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何让新生成的窗口中的TABLE自动列宽


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

主题：如何让新生成的窗口中的TABLE自动列宽
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：611 积分：4690 威望：0 精华：0 注册：2020/4/15 19:53:00 		如何让新生成的窗口中的TABLE自动列宽  发帖心情 Post By：2021/2/1 9:28:00 [显示全部帖子]

Dim g As New CrossTableBuilder("时段统计人数", DataTables("统计表时段人数"))
g.Caption = "时段统计人数"
g.HGroups.AddDef("时段")
g.VGroups.AddDef("日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("人数", "人数")
g.Build()
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "时段统计人数", True)
tbl.SetBounds(0, 130, 1200, 600) 
e.Form.AddControl(tbl)

如何让新生成的窗口中的TABLE自动列宽
红色部分,如何确定主坐标以后,自动填满屏幕
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：611 积分：4690 威望：0 精华：0 注册：2020/4/15 19:53:00 		自动列宽怎么做呢?  发帖心情 Post By：2021/2/1 13:46:00 [显示全部帖子]

自动列宽怎么做呢?

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


加好友 发短信
等级：三尾狐 帖子：611 积分：4690 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2021/2/1 14:36:00 [显示全部帖子]

Dim g As New CrossTableBuilder("时段统计人数", DataTables("统计表时段人数"))
g.Caption = "时段统计人数"
g.HGroups.AddDef("时段")
g.VGroups.AddDef("日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("人数", "人数")
g.Build()
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "时段统计人数", True)
tbl.Dock = System.Windows.Forms.DockStyle.Fill '自动大小
e.Form.Controls("Panel1").AddControl(tbl)
下面这个代码加到哪里.
Tables("时段统计人数").ExtendLastCol = True
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：611 积分：4690 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2021/2/1 14:41:00 [显示全部帖子]

编译报错  ExtendLastCol 不是 winform.table的成员.
错误代码 tbl.ExtendLastCol = True
[此贴子已经被作者于2021/2/1 14:42:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：611 积分：4690 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2021/2/1 15:15:00 [显示全部帖子]

谢谢,不过列宽还是没有自动出来.
AUTOSIZECOLS() 效果怎么样可以出来
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：611 积分：4690 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2021/2/1 15:31:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：列太宽了.jpg
图片点击可在新窗口打开查看
已上传图片.
代码如下  想实现 列宽根据值自动列宽,现在出来的列太宽了.
图片点击可在新窗口打开查看此主题相关图片如下：自动列宽效果.jpg
图片点击可在新窗口打开查看

Dim g As New CrossTableBuilder("时段统计人数", DataTables("统计表时段人数"))
g.Caption = "时段统计人数"
g.HGroups.AddDef("时段")
g.VGroups.AddDef("日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("人数", "人数")
g.Build()
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "时段统计人数", True)
'tbl.SetBounds(0, 130, 1200, 600) '手动大小
tbl.Dock = System.Windows.Forms.DockStyle.Fill '自动大小
tbl.Table.ExtendLastCol = True
'tbl.Table.AutoSizeCols()
e.Form.Controls("Panel1").AddControl(tbl)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询