把明细表的供货日期改为日期类型的列
For page As Integer = 1 To totalPages
Dim Book As New XLS.Book(ProjectPath & "打印模板.xlsx") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("sheet1") '引用工作簿的第一个工作表 '打印表头
Sheet(0, 9).Value = ryear '填写报表头之年
Sheet(1, 9).Value = rmonth '填写报表头之月
Sheet(2, 9).Value = r("收货单号") '填写报表头之收货单号
Dim St As XLS.Style = Book.NewStyle
St.Format = "yyyy-MM-dd"
Dim k As Integer = 6
For i As Integer = (page - 1) * 5 To Math.Min(page * 5 - 1, hs - 1) 'i代表table收货明细的行号
For j As Integer = 0 To sheetRows.Length - 1 'j代表sheet 表的行号
Sheet(k, sheetRows(j)).Value = shmx.Table.Rows(i)(lms(j))
If j = 0 Then
Sheet(k, sheetRows(j)).Style = St
End If
Next
k += 1
Next
Book.Save(ProjectPath & "reports\test " & page & ".xls") '保存工作簿
Next
加好友 
发短信
Post By：2024/6/7 15:23:00 [显示全部帖子]
