虽然设置了数值类型个格式为“0.00”,只是数值列显示的时候是保留的小数点后2位，excel存储时的还是小数点后边超过2位（见附件），应该怎么改啊（导出的excel实际存储的也是小数点后2位）？
Dim dt As Table = Tables("租赁合同佣金提取明细表")
Dim nms() As String = {"合同编号","项目名称","楼栋名称","房间名称","客户名称","合同面积","租金总额","管理费总额","合同开始日期","合同终止日期","签订日期","租赁类别","经手人","申请金额","申请笔数","提佣所属年份","提交人","提交日期","审核人","审核日期"} '要导出的列名
Dim caps() As String = {"合同编号","项目名称","楼栋名称","房间名称","客户名称","合同面积","租金总额","管理费总额","合同开始日期","合同终止日期","签订日期","租赁类别","经手人","申请金额","申请笔数","提佣所属年份","提交人","提交日期","审核人","审核日期"} '对应的列标题
Dim szs() As Integer = {150,100,100,150,150,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100} '对应的列宽
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim st As XLS.Style = Book.NewStyle '日期列的显示格式
st.Format = "yyyy-MM-dd"
Dim nt As XLS.Style = Book.NewStyle '日期列的显示格式
nt.Format = "0.00"
For c As Integer = 0 To nms.length -1
Sheet(0, c).Value = caps(c) '指定列标题
Sheet.Cols(c).Width = szs(c) '指定列宽
If dt.Cols(nms(c)).IsDate Then '如果是日期列
Sheet.Cols(c).Style = st '设置显示格式
End If
If dt.Cols(nms(c)).IsNumeric And dt.Cols(nms(c)).name<> "提佣所属年份" Then '如果是数值列
Sheet.Cols(c).Style = nt '设置显示格式
End If
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For c As Integer = 0 To nms.length -1
If dt.rows(r)(nms(c))<>Nothing
Sheet(r +1, c).Value = dt.rows(r)(nms(c))
End If
Next
Next
此主题相关图片如下：1.jpg
加好友 
发短信
Post By：2019/9/5 16:27:00 [只看该作者]
