附页是全部代码。其中下面一段代码中，红色的 rows(r) 这里要怎样修改才能反映 pxlh 这行的数据？谢谢。
For p As Integer = 1 To max
Dim pxlhs As List(Of String)
pxlhs = DataTables("SBG对账单").GetValues("同页码序号", "页码='" & p & "'")
Dim cnt2 As Integer = DataTables("SBG对账单").GetValues("同页码序号", "页码='" & p & "'").count
Dim r As Integer = 0
For Each pxlh As String In pxlhs '开始填入数据
For c As Integer = 0 To nms.length - 1
Sheet(r + 1, c).Value = dt.rows(r)(nms(c))
Next
r = r + 1
Next
Dim fl As String = "D:\开具fa piao项目信息\开具fa piao项目信息" & ty1 & "-P" & p & ".xls"
Book.Save(fl) '保存工作簿
Next
加好友 
发短信
Post By：2023/3/17 10:24:00 [只看该作者]
