导出数据到excel
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'''' '创建一个空的Excel电子表格文档
Dim AppExcel As Excel.Application = New Excel.Application
AppExcel.Application.Workbooks.Add(True)
''''''读取数据的字段名称,并在产生的Excel表格的第一行显示出来
Dim colIndex As Integer = 0
Dim col As DataColumn = New DataColumn
For Each col In ds.Tables(0).Columns
colIndex = colIndex + 1
AppExcel.Cells(1, colIndex) = col.ColumnName
Next
''''''''实现数据集到Excel表格的转换
Dim rowIndex As Integer = 1
Dim row As DataRow
For Each row In ds.Tables(0).Rows
rowIndex = rowIndex + 1
colIndex = 0
Dim col1 As DataCol