以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于指定列Extend  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30699)
--  作者：晕了快扶我
--  发布时间：2013/4/2 11:46:00
--  关于指定列Extend

只有最后一列才能ExtendLastCol，可不可以指定一列，其他的用Autosize呢？

翻了好多次说明书没看到有这个功能
--  作者：晕了快扶我
--  发布时间：2013/4/2 11:53:00
--  
以下是引用muhua在2013-4-2 11:50:00的发言：

指定一列什么？？ 指定一列的宽度吗？？

 

Tables("统计表1").Cols("实际人数_3").Width = "100"

 

不是，比如我的表有10列，一般在窗口表中用Extendlastcol来适应窗口的宽度，能不能指定一列用Extend呢？其他的Auosize
--  作者：狐狸爸爸
--  发布时间：2013/4/2 11:58:00
--  
呵呵，不可以的哦。
--  作者：晕了快扶我
--  发布时间：2013/4/2 20:47:00
--  
以下是引用muhua在2013-4-2 12:05:00的发言：

那就转折点：

 

Dim Ind As Integer = Tables("表A").Cols("姓名").Index
Tables("表A").Cols("姓名").Move(CurrentTable.Cols.Count-1)
Tables("表A").AutoSizeCols()
Tables("表A").ExtendLastCol = True
Tables("表A").Cols("姓名").Move(Ind)

 

 

谢谢MUHUA，这么转折的办法你都想出来了，我去试试...

狐爸,你不想改写列宽设置就弄一个参数出来可以指定任意列的宽度自适应窗口宽度咯..
--  作者：晕了快扶我
--  发布时间：2013/4/2 21:05:00
--  

不行哦，扩展的还是原来最后一列

Dim Ind As Integer = Tables("客户对账单_客户对账单子表").Cols("规格").Index
Tables("客户对账单_客户对账单子表").Cols("规格").Move(Tables("客户对账单_客户对账单子表").Cols.Count-1)
msgbox(Tables("客户对账单_客户对账单子表").Cols("规格").Index)
Tables("客户对账单_客户对账单子表").ExtendLastCol = True
Tables("客户对账单_客户对账单子表").AutoSizeCols()
Tables("客户对账单_客户对账单子表").Cols("规格").Move(Ind)

 

写在窗口的afterload事件里

msgbox合成出来的Index位置是正确的
--  作者：e-png
--  发布时间：2013/4/2 22:08:00
--  

窗口的宽知道了，减去所有列AutoSizeCols()后的列宽之和，差额愿意加到哪一列都应该可以吧。
--  作者：晕了快扶我
--  发布时间：2013/4/3 1:13:00
--  
以下是引用e-png在2013-4-2 22:08:00的发言：

窗口的宽知道了，减去所有列AutoSizeCols()后的列宽之和，差额愿意加到哪一列都应该可以吧。

。。。你这办法和我指定列宽有什么区别，就是有的列数值的长度是不固定的啊,我希望我指定的列自动填满，这样子就不用在有很多行的时候挤占掉滚动条的位置
--  作者：e-png
--  发布时间：2013/4/3 9:27:00
--  
Tables("订单").SetColVisibleWidth("日期|90|产品|120|客户|120|数量|60")   这样不是可以指定任何一列的列宽吗。
--  作者：Bin
--  发布时间：2013/4/3 9:28:00
--  
以下是引用e-png在2013-4-3 9:27:00的发言：
Tables("订单").SetColVisibleWidth("日期|90|产品|120|客户|120|数量|60")   这样不是可以指定任何一列的列宽吗。

你没理解楼主想要的是什么。