[求助]excel报表编程，求大神指点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

由于专业报表不能修改，可视化专业报表不会，所以转用excel报表编程，现遇到几个问题

1、根据帮助定义了style的各种属性，但是某个写单元格的style属性跟其他不一样，例如这些单元格的Sheet1(ro1,42).Style.AlignHorz = XLS.AlignHorzEnum.Left，结果全部单元格的都靠左了，求解？

2、sheet1(4+num,0).Style.BackColor = Color.Red 这个表达式该如何写？单独定义某个单元格的背景颜色

以下是引用有点蓝在2016/12/13 16:54:00的发言：
参考：http://www.foxtable.com/webhelp/scr/1160.htm

http://www.foxtable.com/webhelp/scr/1161.htm

[此贴子已经被作者于2016/12/13 16:54:09编辑过]

我看了，不是没看懂，应该是没找到为什么

明明我只针对某些单元格靠左，结果全部靠左了，然后设置背景颜色报错。。。。

计算机运行代码的时候，是把前面的代码运行完了才运行后面的撒？没错啊。。。。就算前面所有单元格赋值了style属性，但是某些单元格也应该以我最后的设定的style属性为准啊。。。

[此贴子已经被作者于2016/12/13 16:58:43编辑过]

下面是最后引用style属性的代码。。。求解，为什么全部变红了，二是全部靠左了。。。。

For ro As Integer = 5 To num + 4 Step +1

sheet1.Rows(ro).Height = 22

For co As Integer =0 To 42 Step +1

Sheet1(ro,co).Style = Style

If Sheet1(ro,co).Value = "0" Then

Sheet1(ro,co).Value = ""

End If

For ro1 As Integer = 5 To num + 4 Step +1

If sts2.Contains(ro1) Then

Sheet1(ro1,0).Style.BackColor = Color.Red

Else

Sheet1(ro1,42).Style.AlignHorz = XLS.AlignHorzEnum.Left

End If

以下是引用有点蓝在2016/12/13 17:02:00的发言：
只能说你确实是没有看懂

Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Red '设置样式的字体颜色
Sheet(0,0).Style = Style

不能直接设置sheet1(0，0).Style.BackColor = Color.Red

多谢实验了下正确了我懂了，原来都必须重新定义。。。这一点比专业报表烦人啊。。。

所有定义样式的代码，特定的行，可以变色了，但是死活不能靠左。。。。求解。。。

Dim Style As XLS.Style = Book.NewStyle() '定义新样式

Style.BorderTop = XLS.LineStyleEnum.Thin

Style.BorderBottom = XLS.LineStyleEnum.Thin

Style.BorderLeft = XLS.LineStyleEnum.Thin

Style.BorderRight = XLS.LineStyleEnum.Thin

Style.AlignHorz = XLS.AlignHorzEnum.Center

Style.AlignVert = XLS.AlignVertEnum.Center

style.Font = New Font("Times New Roman",9)

style.WordWrap = True

For ro As Integer = 5 To num + 4 Step +1

sheet1.Rows(ro).Height = 22

For co As Integer =0 To 42 Step +1

Sheet1(ro,co).Style = Style

If Sheet1(ro,co).Value = "0" Then

Sheet1(ro,co).Value = ""

End If

For ro1 As Integer = 5 To num + 4 Step +1

If sts2.Contains(ro1-4) Then

Dim Style1 As XLS.Style = Book.NewStyle() '定义新样式

style1.BackColor = Color.Gainsboro

style1.AlignHorz = XLS.AlignHorzEnum.Left

style1.AlignVert = XLS.AlignVertEnum.Center

style1.BorderTop = XLS.LineStyleEnum.Thin

style1.BorderBottom = XLS.LineStyleEnum.Thin

style1.BorderLeft = XLS.LineStyleEnum.Thin

style1.BorderRight = XLS.LineStyleEnum.Thin

style1.AlignHorz = XLS.AlignHorzEnum.Center

style1.AlignVert = XLS.AlignVertEnum.Center

style1.Font = New Font("Times New Roman",9)

Sheet1(ro1,0).Style = style1

Else

Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式

style2.AlignHorz = XLS.AlignHorzEnum.Left

style2.AlignVert = XLS.AlignVertEnum.Center

style2.BorderTop = XLS.LineStyleEnum.Thin

style2.BorderBottom = XLS.LineStyleEnum.Thin

style2.BorderLeft = XLS.LineStyleEnum.Thin

style2.BorderRight = XLS.LineStyleEnum.Thin

style2.AlignHorz = XLS.AlignHorzEnum.Center

style2.AlignVert = XLS.AlignVertEnum.Center

style2.Font = New Font("Times New Roman",7)

Sheet1(ro1,42).Style = style2

End If

我突然想起来，是不是我是word2013版，有什么特殊的地方之类的? 麻烦看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

[此贴子已经被作者于2016/12/13 17:58:46编辑过]

那个是垂直方向的居中。。。

就算删了也不行啊。。。。。

不行啊导出来还是居中。。。唉

有点蓝，你导出来没问题？？？为何我导出来有问题奇怪。。。

主题：[求助]excel报表编程，求大神指点