以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自适应列宽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113251)
--  作者：江南小镇
--  发布时间：2018/1/11 21:05:00
--  [求助]自适应列宽
老师，下面代码生成的表怎样设置自适应列宽。

Dim tj As String = "Select * Fro m {" & e.sender.text & "}"
Tables("查询窗口_Table1").Fill(tj ,"数据库" ,False)                  \'加载Table
\'Functions.Execute("DataList",Tables("窗口1_Table1")) \'显示列表
Tables("查询窗口_Table1").ShowCheckBox = True
[此贴子已经被作者于2018/1/11 21:05:13编辑过]
--  作者：有点甜
--  发布时间：2018/1/11 21:47:00
--  

参考

 

AutoSizeCol 自动设置指定列的宽度。
AutoSizeCols 自动设置所有列的宽度。
--  作者：江南小镇
--  发布时间：2018/1/11 21:54:00
--  
老师，窗口表重新加载后就没有用了。
Tables("窗口1_Table1").AutoSizeCols()
--  作者：有点甜
--  发布时间：2018/1/11 21:58:00
--  
以下是引用江南小镇在2018/1/11 21:54:00的发言：
老师，窗口表重新加载后就没有用了。
Tables("窗口1_Table1").AutoSizeCols()

 

你重新加载的时候，不能也执行autoSizeCols代码？
--  作者：江南小镇
--  发布时间：2018/1/11 22:03:00
--  
老师，有其他办法吗？
--  作者：有点甜
--  发布时间：2018/1/11 22:05:00
--  

试试timertick事件autoSizeCols的代码。

 

http://www.foxtable.com/webhelp/scr/1301.htm

 
--  作者：江南小镇
--  发布时间：2018/1/11 22:22:00
--  

老师，我把事件摆在SelectedIndexChanged也可以的