| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自动调整关联表的行高 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190137) |
| -- 作者：moseser -- 发布时间：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 -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2024/1/18 14:39:00 -- 回复：（cd_tdh）If e.Table.Current Is Nothing Then... 表a.表b 中，找一列，输入比较多的字，看可否自动换行 |
| -- 作者：有点蓝 -- 发布时间：2024/1/18 14:49:00 -- 那就放到afteredit事件 |
| -- 作者：moseser -- 发布时间：2024/1/18 15:11:00 -- 回复：（有点蓝）代码放到表B的其currentchanged 事件... 会提示 表B 不存在_identify列 ？ |
| -- 作者：有点蓝 -- 发布时间：2024/1/18 15:14:00 -- 上面的代码不可能会提示这个错误。还有其他什么代码？ |
| -- 作者：moseser -- 发布时间：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) 执行了这个命令后，就出现的
|
| -- 作者：有点蓝 -- 发布时间：2024/1/18 16:02:00 -- 我测试没有问题，请上传实例说明 |
| -- 作者：有点蓝 -- 发布时间：2024/1/18 16:03:00 -- 另外这个代码也不适合放到currentchanged事件，折叠表执行一次就够了，没有必要选一行就执行一下 |