此主题相关图片如下:1.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-12/202112610105858736.png)
错误提示什么意思啊?Dim nms(10000) As String
Dim caps(10000) As String
Dim szs(10000) As Integer
For i As Integer = 0 To Tables("统计表2").Cols.Count - 1
nms(i) = Tables("统计表2").Cols(i).name
caps(i) =Tables("统计表2").Cols(i).caption
szs(i) = 100
Next
Dim dt As Table=Tables("统计表2")
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
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).IsNull(nms(c)) = False
If dt.Cols(nms(c)).IsNumeric
Sheet(r +1, c).Value = round2(dt.rows(r)(nms(c)),2)
End If
End If
Next
Next