Foxtable(狐表)用户栏目专家坐堂 → 如何设置单元格样式,使某列较长内容自动缩小以适应单元格宽度?


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

主题:如何设置单元格样式,使某列较长内容自动缩小以适应单元格宽度?

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


加好友 发短信
等级:二尾狐 帖子:571 积分:5497 威望:0 精华:0 注册:2018/11/6 10:54:00
如何设置单元格样式,使某列较长内容自动缩小以适应单元格宽度?  发帖心情 Post By:2023/5/14 14:42:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
Dim
 rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) 
'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef 
'设置网格线
'下面的代码向表格中填入值

For
 r As Integer = 0 to 5
    
For c As integer = 0 to 5
        rt.Cells(r, c).Text = r & 
"," & c '
    
Next
Next

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right 
'所有文本内容靠右对齐
rt.Cols(
0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '唯独第一列内容居中

doc.Preview() 
'预览报表

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


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/14 20:27:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=64395&skin=0

 回到顶部