Dim dt As Table = Tables("树状整体_Table1")
Dim nms() As String = {"层级","产品编码","产品名称","规格","单位","数量"} '要导出的列名
Dim szs() As Integer = {100,200,380,130,50,75} '对应的列宽
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For c As Integer = 0 To nms.length -1
Sheet(0, c).Value = nms(c) '指定列标题
Sheet.Cols(c).Width = szs(c) '指定列宽
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
Dim rw As Row = dt.rows(r)
For c As Integer = 0 To nms.length -1
If dt.GridTreeVisible Then '如果处于折叠模式
If nms(c) = "数量" Then
Sheet(r + 1, c).Value = rw.GetValue("数量")
ElseIf nms(c) = "产品编码"
Sheet(r + 1, c).Value = new String(" ", rw.Hierarchy * 2) & rw("产品编码")
Else
Sheet(r + 1, c).Value = rw(nms(c))
End If
Else
Sheet(r + 1, c).Value = rw(nms(c))
End If
Next
Next
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
导出数据没有问题，原来是单个查询产品，
现在我是将所有数据都查出来，也就是表中是多个产品的树状清单，代码还一样，但是报错 “count”必须为非负值。 参数名: count “ 请问老师这个如何解决》？
加好友 
发短信
Post By：2022/9/7 14:46:00 [只看该作者]
