以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口中表格标题行居中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78557)

--  作者:huangfanzi
--  发布时间:2015/12/11 15:22:00
--  [求助]窗口中表格标题行居中
For Each c As Col In Tables(e.Form.Name & "_Table1").cols
    If c.Name = "宽度" Or c.Name = "重量" Then
        c.TextAlign = TextAlignEnum.Right \'表格内容右对齐
    ElseIf c.Name = "卷号" Then
        c.TextAlign = TextAlignEnum.Left \'表格内容左对齐
    Else
        c.TextAlign = TextAlignEnum.Center \'表格内容居中
    End If
Next
Tables(e.Form.Name & "_Table1").Grid.Rows(0)("卷号").TextAlign = TextAlignEnum.Center
上面这条语句是错误的,请问老师应该如何实现表格标题行居中,表格内的正文不居中
[此贴子已经被作者于2015/12/11 15:21:57编辑过]

--  作者:Hyphen
--  发布时间:2015/12/11 17:32:00
--  
Tables(e.Form.Name & "_Table1").Grid.Rows(0).TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
--  作者:大红袍
--  发布时间:2015/12/11 18:01:00
--  
Dim cs = Tables("表A").Grid.GetCellRange(0,1)
If cs.style Is Nothing Then
    cs.style = Tables("表A").Grid.Styles.add("test")
End If
cs.style.TextAlign = 2