- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- getvalues (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185790)
-- 发布时间：2023/3/17 10:24:00
-- getvalues
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:临时代码1.txt |
附页是全部代码。其中下面一段代码中，红色的 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:\\开具发票项目信息\\开具发票项目信息" & ty1 & "-P" & p & ".xls"
Book.Save(fl) \'保存工作簿
Next
-- 发布时间：2023/3/17 11:00:00
--
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
-- 发布时间：2023/3/17 13:50:00
--
非常感谢。
-- 发布时间：2023/3/18 8:43:00
--
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
这是2楼的一部分代码。这部分执行之后，最后一页还是有问题：因为前面的每页都是400行，而最后一页可能没有400行了，但是现在最后一页还是出来400行数据。请问要怎样修改代码？谢谢。
-- 发布时间：2023/3/18 8:57:00
--
这循环有多少行就显示多少行，并不是固定的。具体请上传实例测试
-- 发布时间：2023/3/18 14:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20230318.rar |
请测试附页项目。数据表：SBG对账单，按钮：发票项目。谢谢。
-- 发布时间：2023/3/18 14:29:00
--
测试结果什么地方有问题？
-- 发布时间：2023/3/18 14:58:00
--
总共3页，第3页应该是5行的，实际上的测试却出来了10行。
-- 发布时间：2023/3/18 15:09:00
--
按照什么条件进行分页的？
-- 发布时间：2023/3/18 15:58:00
--
按页码进行分页，即页码为1就是第1页，即页码为2就是第2页。