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


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

主题:自动行高

帅哥哟,离线,有人找我吗?
zhimin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

则改动该列的数据,该行会自动调整行高,改动其他列行高无变化。
实在是好用。

 回到顶部