Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动调整关联表的行高


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

主题：[求助]自动调整关联表的行高
帅哥哟，离线，有人找我吗？
moseser
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		[求助]自动调整关联表的行高  发帖心情 Post By：2024/1/18 14:14:00 [只看该作者]

表A 是主表，其currentchanged 事件如下：

If e.Table.Current Is Nothing Then 

Else

  tables(”表A.表B“).AutoSizeRows()

End If

自动调整 行高不起作用，单独用命令框 输入 tables(”表A.表B“).AutoSizeRows() 时可以调整
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3205 积分：21299 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2024/1/18 14:28:00 [只看该作者]

If e.Table.Current Is Nothing Then 
    Return
Else
    Tables("表A.表B").AutoSizeRows()
End If
测试没问题
[此贴子已经被作者于2024/1/18 14:27:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 14:34:00 [只看该作者]

代码放到表B的其currentchanged 事件

If e.Table.Current Is Nothing Then 

Else

  e.Table.AutoSizeRows()

End If
[此贴子已经被作者于2024/1/18 14:34:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
moseser
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（cd_tdh）If e.Table.Current Is Nothing Then...  发帖心情 Post By：2024/1/18 14:39:00 [只看该作者]

表a.表b 中，找一列，输入比较多的字，看可否自动换行

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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 14:49:00 [只看该作者]

那就放到afteredit事件

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


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（有点蓝）代码放到表B的其currentchanged 事件...  发帖心情 Post By：2024/1/18 15:11:00 [只看该作者]

会提示 表B 不存在_identify列 ？

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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 15:14:00 [只看该作者]

上面的代码不可能会提示这个错误。还有其他什么代码？

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


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（有点蓝）上面的代码不可能会提示这个错误。还...  发帖心情 Post By：2024/1/18 15:47:00 [只看该作者]

Dim st As New LayerTreeSetting
st.PathCol = "编码"
St.TreeCol = "目录名称"
st.Separator = "."
st.sortcol = "排序"
st.expandto = -1
Tables("表A").ShowGridTree(st)

执行了这个命令后，就出现的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 16:02:00 [只看该作者]

我测试没有问题，请上传实例说明

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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/18 16:03:00 [只看该作者]

另外这个代码也不适合放到currentchanged事件，折叠表执行一次就够了，没有必要选一行就执行一下

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询