|
If User.IsRole("奖金核算人") Or User.Name = "开发者" Then
Dim dt As Table = Tables("奖金核算窗口_Table1")
Dim hdr As Integer = dt.HeaderRows '获得表头的层数
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
dt.CreateSheetHeader(Sheet,0,0,False) '生成表头
For c As Integer = 0 To dt.Cols.Count - 1
For r As Integer = 0 To dt.Rows.Count - 1
sheet(r + hdr,c).value = dt(r,c)
Next
Next
' For r As Integer = 0 To 2 '填入列标题
' For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
' Sheet(r, c).Value = dt.Cols(c).Name
' Next
' Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +2, c).Value = dt.rows(r)(c)
Next
Next
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
'打开工作簿
Book.Save(ProjectPath & "Reports\" & y & "年" & m & "奖金汇总表.xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\" & y & "年" & m & "奖金汇总表.xls"
Proc.Start()
Else
MessageBox.Show("对不起, 您无此授权!")
Return
End If
|
加好友 
发短信
Post By：2015/8/24 8:24:00 [显示全部帖子]
Post By：2015/8/24 9:07:00 [显示全部帖子]
