标题：[求助]自动调整关联表的行高

1楼

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() 时可以调整

2楼

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编辑过]

3楼

有点蓝 发表于：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编辑过]

4楼

moseser 发表于：2024/1/18 14:39:00

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

5楼

有点蓝 发表于：2024/1/18 14:49:00

那就放到afteredit事件

6楼

moseser 发表于：2024/1/18 15:11:00

会提示表B 不存在_identify列？

7楼

有点蓝 发表于：2024/1/18 15:14:00

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

8楼

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)

执行了这个命令后，就出现的

9楼

有点蓝 发表于：2024/1/18 16:02:00

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

10楼

有点蓝 发表于：2024/1/18 16:03:00

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

共12 条记录, 每页显示 10 条, 页签: [1] [2]