- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：如何获取最后一个记录中的结束页值！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63143)
-- 发布时间：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
End If
期待将这个代码 增加到专业报表中“就是卷内目录”这个按钮事件中的 当前卷宗连底带封面 共“多少”页。
-- 发布时间：2015/1/14 17:00:00
--
无效? 是没有弹出信息 一点反应都没? 还是弹出的信息不对?
-- 发布时间：2015/1/14 17:08:00
--
只能说你一点进步都没有，不要总问这些基础的问题好不好。
1、上移下移的时候，全部重新生成；
2、加入msgbox调试那里出问题。
-- 发布时间：2015/1/14 17:15:00
-- 回复：（有点甜） 只能说你一点进步都没有，不要...
有点甜老师
上移一行 下移一行
采用了DataTables("同录卷内目录").DataCols("案卷编号").RaiseDataColChanged()
但是起始页 结束页不行
采用MessageBox.Show("结束页:" & dr("结束页")) 运行不会弹出这个提示 没有任何提示
-- 发布时间：2015/1/14 17:16:00
-- 回复：（Bin）无效? 是没有弹出信息 一点反应都没? 还...
没有弹出信息 一点反应都没
-- 发布时间：2015/1/14 17:16:00
--
案卷编号 = \'" & Tables("同录卷内目录").Current.DataRow("案卷编号") 说明你没有找到条件对应的行
-- 发布时间：2015/1/14 17:20:00
-- 回复：（Bin）案卷编号 = '" & Tables("同录卷内目...
嗯 因为如果要找到数据的话才会弹出来的
特纠结
当前记录是有数据的 难道是动态表达式有问题？
-- 发布时间：2015/1/14 17:27:00
--
1、
Dim vals() As String = { "同步录音录像受理登记表","同步录音录像工作说明","检察文书审批表","同步录音录像通知单","委托技术协助书"}
For i As Integer =0 To vals.Length - 1
Dim r As Row = Tables("同录台账.同录卷内目录").AddNew()
r("标题") = vals(i)
r("结束页") = r("起始页") + 1
Next
-- 发布时间：2015/1/14 17:31:00
--
2、
If Tables("同录台账.同录卷内目录").Current IsNot Nothing
Dim dr As DataRow
dr = DataTables("同录卷内目录").Find("案卷编号 = \'" & Tables("同录台账.同录卷内目录").Current("案卷编号") & "\'","结束页 Desc")
If dr IsNot Nothing Then \'如果找到的话
MessageBox.Show("结束页:" & dr("结束页"))
End If
End If
-- 发布时间：2015/1/14 17:54:00
-- 回复：（有点甜）2、 If Tables("同录台账.同...
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
End If
本案卷连底带封面共多少页已经实现，进一步求解 如何将共[PageCount]页 加入ab= dr("结束页")+2代码中
问题2
如果在上移一行 下移一行中增加如下代码
SystemReady = False
DataTables("同录卷内目录").DataCols("案卷编号").RaiseDataColChanged()
DataTables("同录卷内目录").DataCols("起始页").RaiseDataColChanged()
DataTables("同录卷内目录").DataCols("结束页").RaiseDataColChanged()
SystemReady = True
是可以实现自动计算了 但是会出现混乱 貌似缺少什么条件！ 进一步求解