用代码设置导出excel的边框后，日期字段显示不正确（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图，用saveexcel导出一个表格，字段显示正确，只是没有边框

为了美观，用代码设置了边框，但日期字段显示不正确了

此主题相关图片如下：snipaste_2022-07-06_09-09-53.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导出格式设置.foxdb

设置边框的代码是抄帮助的：

Dim fl As String = "d:\表a.xls"

Tables("表a").SaveExcel(fl,"表a")

Dim Book As New XLS.Book(fl)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

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

Style.WordWrap = True

Style.BorderTop = XLS.LineStyleEnum.Thin

Style.BorderBottom = XLS.LineStyleEnum.Thin

Style.BorderLeft = XLS.LineStyleEnum.Thin

Style.BorderRight = XLS.LineStyleEnum.Thin

For i As Integer = 0 To sheet.Cols.Count - 1

For j As Integer = 0 To sheet.Rows.count - 1

sheet(j,i).Style = style

sheet(j,i).Style.AlignHorz = XLS.AlignHorzEnum.Center

sheet(j,i).Style.AlignVert = XLS.AlignVertEnum.Center

Sheet.Rows(j).Height = 28

Book.Save(fl)

Dim proc As new Process

proc.File = fl

proc.Start

[此贴子已经被作者于2022/7/6 9:43:16编辑过]

Dim Book As New XLS.Book(fl)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

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

Style.WordWrap = True

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

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

Style2.WordWrap = True

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.Format="yyyy年MM月dd日"

For i As Integer = 0 To sheet.Cols.Count - 1

For j As Integer = 0 To sheet.Rows.count - 1

if i=1 then

sheet(j,i).Style = style2

else

sheet(j,i).Style = style

end if

Sheet.Rows(j).Height = 28

Book.Save(fl)

噢，原来要针对不同格式分别写样式。

主题：用代码设置导出excel的边框后，日期字段显示不正确 （已解决）

主题：用代码设置导出excel的边框后，日期字段显示不正确（已解决）