Foxtable(狐表)用户栏目专家坐堂 → 怎么设置table第一列的文字对其方式(左对齐)


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

主题:怎么设置table第一列的文字对其方式(左对齐)

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
怎么设置table第一列的文字对其方式(左对齐)  发帖心情 Post By:2017/1/22 16:35:00 [只看该作者]

感觉应该是黄色的部分
但是写在按钮的代码里 不好用
请各位指点一下 非常感谢’



Grid9.RowGroups(1,1).DataBinding.DataSource = BindTables("weixindanhao.weixin") '将第二行绑定到订单表
Grid9.Width=75  '自动宽度
grid9.Cols(0).Width = 30
grid9.Cols(1).Width = 16
grid9.Cols(2).Width = 12
grid9.Cols(3).Width = 17
grid9.Cols(0).TextAlignHorz=prt.AlignHorzEnum.left
'grid9.Cols(3).style.padding.left = 5
grid9.Style.CharSpacing=0.5
Grid9.Style.TextAlignHorz=prt.AlignHorzEnum.right  '文本对齐,水平
Grid9.Style.TextAlignVert=prt.AlignVertEnum.Top  '文本对齐,垂直
Grid9.Style.Font=New System.Drawing.Font("Gulim",9.5,0,3,1,False)  '文本字体
Grid9.Style.BackColor=Color.FromKnownColor(164)  '背景颜色
Grid9.Style.TextColor=Color.FromKnownColor(35)  '字体颜色
Grid9.CellStyle.Spacing.All=0.3  '单元格文本内距
Grid9.CellStyle.Padding.top=0.5
Grid9.CellStyle.Padding.bottom=0.5
Grid9.Style.Padding.Left = 5
Grid9.Style.LineSpacing=125
Grid9.RowGroups(0,tb.HeaderRows).Style.TextAlignHorz=prt.AlignHorzEnum.right  '文本对齐,水平
Grid9.RowGroups(0,tb.HeaderRows).Style.TextAlignVert=prt.AlignVertEnum.Top  '文本对齐,垂直
Grid9.RowGroups(0,tb.HeaderRows).Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False)  '文本字体
Grid9.RowGroups(0,tb.HeaderRows).Style.BackColor=Color.FromKnownColor(164)  '背景颜色
Grid9.RowGroups(0,tb.HeaderRows).Style.TextColor=Color.FromKnownColor(35)  '字体颜色
Grid9.RowGroups(0,tb.HeaderRows).CellStyle.Spacing.All=1  '单元格文本内距
Dim LineLine3 As New prt.LineDef(1,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line3  As New prt.RenderLine(8,10,76,10, LineLine3) '定义一个线段对象
Dim LineLine4 As New prt.LineDef(1,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line4  As New prt.RenderLine(8,40,76,40, LineLine4) '定义一个线段对象


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/22 17:54: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.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.left
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right '所有文本内容靠右对齐
doc.Preview() '预览报表


 回到顶部