Dim n1 As Integer = 0
Dim t As Table = Tables("工资摘要")
Dim f1 As String = ("工资表.xls")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim App As New MSExcel.Application
Dim wb As MSExcel.WorkBook = App.WorkBooks.open(ProjectPath & f1)
Dim ws1 As MSExcel.WorkSheet = wb.WorkSheets("工资")
For n As Integer = 2 To t.Cols.count-1
ws1.cells(2+n,2).value = t.Cols(n).Name
Next
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked = True Then
Dim fdr As DataRow = t.DataTable.find("_Identify = " & nd.tag)
If fdr IsNot Nothing Then
ws1.cells(3,3+n1).Value = fdr("摘要")
For nn As Integer = 2 To t.Cols.count-1
ws1.cells(2+nn,3+n1).value = fdr(t.Cols(nn).Name)
Next
n1 = n1 + 1
End If
End If
Next
ws1.UsedRange.Formula = ws1.UsedRange.Formula
ws1.Activate
app.ActiveWindow.DisplayZeros = False
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = (f1)
Proc.Start()
如何加入代码限制不是最下级不用导出？如工资-应税-标准工资，只导出标准工资，不导出工资-应税？
加好友 
发短信
Post By：2016/3/31 11:20:00 [只看该作者]
