求助：如何获取最后一个记录中的结束页值！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：如何获取最后一个记录中的结束页值！

共有4217人关注过本帖树形打印复制链接主题：求助：如何获取最后一个记录中的结束页值！

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

求助：如何获取最后一个记录中的结束页值！ 发帖心情

Post By：2015/1/14 16:58:00 [显示全部帖子]

求助：如何获取最后一个记录中的结束页值！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:涉密信息系统管理.foxdb

此主题相关图片如下：qq图片20150114165350.jpg

问题1：

如何将结束页自动为起始页加1

并保证整个数据的连贯性

当点上移一行或者下移一行起始页结束页也应当能够保持连贯

问题2：

如何获取最后一个记录的结束页

代码如下运行无效果

If Tables("同录卷内目录").Current IsNot Nothing

Dim dr As DataRow

dr = DataTables("同录卷内目录").Find("案卷编号 = '" & Tables("同录卷内目录").Current.DataRow("案卷编号") & "'","_Identify Desc")

If dr IsNot Nothing Then '如果找到的话

MessageBox.Show("结束页:" & dr("结束页"))

End If

期待将这个代码增加到专业报表中“就是卷内目录”这个按钮事件中的当前卷宗连底带封面共“多少”页。

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）只能说你一点进步都没有，不要... 发帖心情

Post By：2015/1/14 17:15:00 [显示全部帖子]

有点甜老师

上移一行下移一行

采用了DataTables("同录卷内目录").DataCols("案卷编号").RaiseDataColChanged()

但是起始页结束页不行

采用MessageBox.Show("结束页:" & dr("结束页")) 运行不会弹出这个提示没有任何提示

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（Bin）无效? 是没有弹出信息一点反应都没? 还... 发帖心情

Post By：2015/1/14 17:16:00 [显示全部帖子]

没有弹出信息一点反应都没

李孝春

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（Bin）案卷编号 = '" & Tables("同录卷内目... 发帖心情

Post By：2015/1/14 17:20:00 [显示全部帖子]

嗯因为如果要找到数据的话才会弹出来的

特纠结

当前记录是有数据的难道是动态表达式有问题？

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）2、 If Tables("同录台账.同... 发帖心情

Post By：2015/1/14 17:54:00 [显示全部帖子]

If Tables("同录台账.同录卷内目录").Current IsNot Nothing

Dim dr As DataRow

dr = DataTables("同录卷内目录").Find("案卷编号 = '" & Tables("同录台账.同录卷内目录").Current("案卷编号") & "'","结束页 Desc")

If dr IsNot Nothing Then '如果找到的话

'MessageBox.Show("结束页:" & dr("结束页"))

Dim Ab As Integer

ab= dr("结束页")+2

rx.Cells(0,2).Text = "本案卷连底带封面共[" & CUNumber(ab) & "]页" & "第[PageNo]页,共[PageCount]页"

End If

本案卷连底带封面共多少页已经实现，进一步求解如何将共[PageCount]页加入ab= dr("结束页")+2代码中

问题2

如果在上移一行下移一行中增加如下代码

SystemReady = False

DataTables("同录卷内目录").DataCols("案卷编号").RaiseDataColChanged()

DataTables("同录卷内目录").DataCols("起始页").RaiseDataColChanged()

DataTables("同录卷内目录").DataCols("结束页").RaiseDataColChanged()

SystemReady = True

是可以实现自动计算了但是会出现混乱貌似缺少什么条件！进一步求解

李孝春

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）1、不行； 2、不理解你什么... 发帖心情

Post By：2015/1/14 20:49:00 [显示全部帖子]

意思应该是这样：

当上移一行那么当前起始页应该减1 同时结束页也减1

下移一行则对应加1

比如

1 1 2

2 3 4

3 5 6

假设将3行移动到2行那么5 6应该是34 1行的1 2 不变

李孝春

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）上移一行参考代码 ... 发帖心情

Post By：2015/1/15 [显示全部帖子]

没有达到预期效果继续求助

下一主题 >> << 上一主题

主题：求助：如何获取最后一个记录中的结束页值！