For p As Integer = 1 To max
Dim pxlhs As List(Of datarow)
pxlhs = DataTables("SBG对账单").select("页码='" & p & "'")
Dim cnt2 As Integer = DataTables("SBG对账单").GetValues("同页码序号", "页码='" & p & "'").count
Dim r As Integer = 0
For Each pxlh As datarow In pxlhs '开始填入数据
For c As Integer = 0 To nms.length - 1
Sheet(r + 1, c).Value = pxlh(nms(c))
Next
r = r + 1
Next
Dim fl As String = "D:\开具fa piao项目信息\开具fa piao项目信息" & ty1 & "-P" & p & ".xls"
Book.Save(fl) '保存工作簿
Next