Foxtable(狐表)用户栏目专家坐堂 → 自动行高不起作用


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

主题:自动行高不起作用

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
自动行高不起作用  发帖心情 Post By:2020/1/6 8:13:00 [显示全部帖子]

老师,我用了论坛中老师的代码自动调整行高,代码如下:
If e.Col.Name="委托单位" Then
    Dim t As Table = e.Table
    Dim  cname As String = e.Col.name
    Dim lc As Integer = t.cols(cname).index+1
    Dim br As Integer = e.Row.index+t.HeaderRows
    t.grid.AutoSizeRows(0, lc, br, lc, 0, 0)
End If
没有效果,是怎么回事?  谢谢!
此主题相关图片如下:捕获.png
按此在新窗口浏览图片

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/1/6 11:00:00 [显示全部帖子]

老师,我试了,还是不行
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/1/6 11:52:00 [显示全部帖子]

在datacolchanged事件中也不行啊
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:捕获2.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/1/6 13:35:00 [显示全部帖子]

蓝老师,还是不行,没有反应。是版本的问题吗?我的是2019版



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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/1/6 23:18:00 [显示全部帖子]

老师,自动换行后自动调整行高,有没有完整的资料可供学习?我在论坛上搜索后,也找不到实现的方法。谢谢

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/1/6 23:48:00 [显示全部帖子]

蓝老师,有一个实例---------新建一个文件,其中第一列与第二列的字符长度均为250.
在表A的 Datacolchanged 事件写入代码:
If e.DataCol.Name = "第一列" Then
    Tables(e.DataTable.name).AutoSizeRow(Tables(e.DataTable.name).findrow(e.DataRow))
End If

在表A的click事件中输入代码:
Tables("表A").Cols("第一列").Width= 100
Tables("表A").Cols("第二列").Width= 50
Tables("表A").AutoSizeRows()
Dim ss As String
ss="中华人民共和国北京市朝阳区"
e.Row("第一列")=ss
e.Row("第二列")=ss & "CBD核心区"

我希望自动换行后自动调整行高。


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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
  发帖心情 Post By:2020/1/7 22:04:00 [显示全部帖子]

我的是开发板,打不开您的文件

 回到顶部