Foxtable(狐表)用户栏目专家坐堂 → [求助]拉伸列问题


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

主题:[求助]拉伸列问题

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


加好友 发短信
等级:小狐 帖子:350 积分:3142 威望:0 精华:0 注册:2012/12/6 18:05:00
[求助]拉伸列问题  发帖心情 Post By:2013/12/31 15:41:00 [只看该作者]

双击2列的标题的交汇处,可以把该列自动调整到,该列中的内容最长的列宽处!请问,我现在有A表和B表,我希望双击A表中的2列的标题的交汇处,该列会按照B表中的同名列的内容最长的列宽处,该如何实现?请教高手们,想了一整夜了,还是没有头绪。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/31 15:53:00 [只看该作者]

这个不太好办呢.

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/12/31 17:03:00 [只看该作者]

打开项目后,表B先自动列宽:

http://www.foxtable.com/help/topics/1554.htm

 

设置表A的这个事件:

http://www.foxtable.com/help/topics/0652.htm

 

if Tables("表B").Cols.Contains(e.col.name) then
    e.Cancel = True

    e.col.width = Tables("表B").Cols(e.Col.name).Width

end if


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/31 17:05:00 [只看该作者]

BeforeResizeColumn 这个好东东怎么就被我忽略了呢图片点击可在新窗口打开查看

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/12/31 17:06:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:小狐 帖子:350 积分:3142 威望:0 精华:0 注册:2012/12/6 18:05:00
  发帖心情 Post By:2014/1/2 16:30:00 [只看该作者]

狐狸爸爸的这个方法是一开后,表的初始化吧!能否在输入数据的过程中,我双击 A表中的2列的标题的交汇处,该列会按照B表中的同名列的内容最长的列宽处

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/2 16:30:00 [只看该作者]

你双击表A 表A变化会触发BeforeResizeColumn事件

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


加好友 发短信
等级:小狐 帖子:350 积分:3142 威望:0 精华:0 注册:2012/12/6 18:05:00
  发帖心情 Post By:2014/1/2 16:40:00 [只看该作者]

 关键是 BeforeResizeColumn事件的代码是
if Tables("表B").Cols.Contains(e.col.name) then

    e.Cancel = True

    e.col.width = Tables("表B").Cols(e.Col.name).Width

end if

此时的表B由于数据的加入已经不是原来刚刚打开表时的宽度的!这个就不对了,就无法达到是表B该列新的宽度了!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/2 16:43:00 [只看该作者]

AfterResizeColumn 那就用这个事件


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


加好友 发短信
等级:小狐 帖子:350 积分:3142 威望:0 精华:0 注册:2012/12/6 18:05:00
  发帖心情 Post By:2014/1/2 16:48:00 [只看该作者]

看来bin大爷不懂我的那个意思!请bin大爷帮忙做个例子,万分的谢谢!

 回到顶部
总数 11 1 2 下一页