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


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

主题:[求助]自动调整关联表的行高

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


加好友 发短信
等级:三尾狐 帖子:615 积分:5246 威望: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() 时可以调整



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


加好友 发短信
等级:三尾狐 帖子:615 积分:5246 威望: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 中,找一列,输入比较多的字,看可否自动换行

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


加好友 发短信
等级:三尾狐 帖子:615 积分:5246 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)代码放到表B的其currentchanged 事件...  发帖心情 Post By:2024/1/18 15:11:00 [显示全部帖子]

会提示 表B 不存在_identify列 ?

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


加好友 发短信
等级:三尾狐 帖子:615 积分:5246 威望: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)

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

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


加好友 发短信
等级:三尾狐 帖子:615 积分:5246 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)另外这个代码也不适合放到currentcha...  发帖心情 Post By:2024/1/22 8:22:00 [显示全部帖子]

我放在了 maintablechanged 时间中了,想着只要切换到 这个主表,就折叠?  还是有其他更好的地方

 回到顶部