老师下面代码有二个问题：
1、窗口表中日期列设置无效，如何调整？
2、在导出excel中第一行设置为：Sheet(0,1).Value = tb.DataTable.Name，最好为有多少列合并为一个单元格并单独设置"字体及大小"
Dim tb As Table = Tables("往来款项台帐_Table1")
Dim hdr As Integer = tb.HeaderRows '获得表头的层数
'Dim cnt As Integer
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(0,1).Value = tb.DataTable.Name
tb.CreateSheetHeader(Sheet) '生成表头
''=======定义导出Excel表新样式===========
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.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Style.AlignHorz = XLS.AlignHorzEnum.Center '水平居中
Style.WordWrap = True '自动换行
Style.AlignVert = XLS.AlignVertEnum.Center '垂直居中
Style.Font = New Font("宋书", 9) '字体大小为9磅
Dim st As XLS.Style = Book.NewStyle() '日期列的显示格式
st.Format = "yyyy-MM-dd"
For cn As Integer = 0 To tb.Cols.Count - 1
If tb.Cols(cn).Visible Then
If tb.Cols(cn).IsDate Then '如果是日期列
Sheet.Cols(cn).Style = st '设置显示格式
End If
For r As Integer = 0 To tb.Rows.Count - 1
sheet(r + hdr,cn).Value = tb(r,cn)
sheet(r,cn).Style = Style '定义单元格线颜色
Next
'cnt = cnt + 1
End If
Next
加好友 
发短信
Post By：2018/9/14 0:39:00 [显示全部帖子]
此主题相关图片如下：qq截图20180914105731.png