Foxtable(狐表)用户栏目专家坐堂 → 调整第一列宽度


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

主题:调整第一列宽度

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3021 积分:20248 威望:0 精华:0 注册:2016/3/28 16:57:00
调整第一列宽度  发帖心情 Post By:2018/12/18 11:49:00 [只看该作者]

老师,有没办法自动调整第一列宽度?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/18 11:53:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3021 积分:20248 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/18 12:10:00 [只看该作者]

老师,不是这个意思,我是想根据窗口自动调整第一列列宽,不是根据内容调整列宽。

 

逻辑型,是否自动调整最后一列的宽度,以适用表宽。

示例:

Tables("表A").ExtendLastCol = True


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/18 12:26:00 [只看该作者]

方法一:第一列移动到最后一列,执行 ExtendLastCol 后得到宽度,然后移动到第一列。

 

方法二:循环每一列计算宽度累加,table控件宽度减去各列的累加,即可。


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3021 积分:20248 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/20 13:52:00 [只看该作者]

以下是引用有点甜在2018/12/18 12:26:00的发言:

方法一:第一列移动到最后一列,执行 ExtendLastCol 后得到宽度,然后移动到第一列。

 

方法二:循环每一列计算宽度累加,table控件宽度减去各列的累加,即可。

老师,我测试方法一无效呢?

方法二,我自适应的,获取到的msgbox(("主窗口_Table1").Grid.width)值不同啊。

[此贴子已经被作者于2018/12/20 14:41:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 14:58:00 [只看该作者]

1、测试了一下,确实无效;

 

2、方法二绝对有效,类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104577&skin=0

 

3、不会用方法二,上传实例测试。


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3021 积分:20248 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/20 15:49:00 [只看该作者]

就这样的啊

    .Cols("标题").Width = .Grid.Width - .Cols("发布日期").Width
    .Cols("发布日期").Width = 80

[此贴子已经被作者于2018/12/20 15:49:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 18:34:00 [只看该作者]

不会做,请把实例发上来测试。

 

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3021 积分:20248 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/12/21 9:26:00 [只看该作者]

以下是引用有点甜在2018/12/20 18:34:00的发言:

不会做,请把实例发上来测试。

 

 

 

 

请老师看看

  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

[此贴子已经被作者于2018/12/21 9:55:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/21 9:45:00 [只看该作者]

sizeChanged事件,写代码,如

 

Dim t As WinForm.Table = e.Form.Controls("Table1")
Dim w As Integer = 0
For Each c As object In t.Table.grid.Cols
    w += c.widthdisplay
Next
If w < t.width Then
    t.Table.grid.Cols(1).widthdisplay += t.width-w
End If


 回到顶部
总数 25 1 2 3 下一页