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


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

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

帅哥哟,离线,有人找我吗?
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() 时可以调整



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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望: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


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望: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


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

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


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

那就放到afteredit事件

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


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

会提示 表B 不存在_identify列 ?

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
moseser
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

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

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


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

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

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


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

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

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