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


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

主题：自动行高
帅哥哟，离线，有人找我吗？
home8225
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00 		自动行高  发帖心情 Post By：2017/8/3 15:39:00 [只看该作者]

我用的这个代码

If e.Col.Name = "备注" Then
    e.Table.AutoSizeRow(e.Row.Index)
End if

效果应该不是这样吧？输多输少都会变成这么高，是因为表格里备注内容最多的就有这么高，不是根据本行的内容来定的？自动后的行高不理想诶。。
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170803153649.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/8/3 15:40:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/3 16:55:00 [只看该作者]

 你想根据哪一列的内容调整行高？或者你改成，afterEdit

 

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)
 回到顶部
帅哥哟，离线，有人找我吗？
zhimin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：132 积分：1232 威望：0 精华：0 注册：2017/3/20 13:41:00 		  发帖心情 Post By：2017/10/27 1:24: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

则改动该列的数据，该行会自动调整行高，改动其他列行高无变化。
实在是好用。
 回到顶部
帅哥哟，离线，有人找我吗？
puma
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：358 积分：3005 威望：0 精华：0 注册：2023/6/7 16:07:00 		  发帖心情 Post By：2024/2/26 12:35:00 [只看该作者]

根据甜老师代码修改，设置指定行高

    Dim t As Table = Tables("表A")
    Dim lc As Integer = t.cols("备注").index+1
    Dim br As Integer = CurrentTable.Current.index+t.HeaderRows
    t.grid.AutoSizeRows(0, lc, br, lc, 0, 0)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询