- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于合同快到期加载提醒的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107509)
-- 发布时间：2017/9/29 11:35:00
-- [求助]关于合同快到期加载提醒的问题
目前，项目基本上做完了（能够达到自己的要求），现在出现了以下怪现象，看图：
内部函数： Functions.Execute("合同主窗口显示页码") 代码
Dim i As Integer =Tables("主合同").DataTable.DataRows.Count
With DataTables("主合同")
Forms("合同主窗口").Controls("TextBox2").Value = (.LoadPage + 1) & "/" & .TotalPages & "页,此页共"& i & "行数据"
End With
项目AfterOpenProject事件中加入了如下代码，想实现启动项目对即将到期（或待收费）的合同进行提醒，然后按照筛选条件加载“主合同”的数据，并打开“主合同”表和“合同主窗口”。目前这一步实现了。
Dim dq As Date = Date.Today.AddDays(10)
Dim Filter As String
With DataTables("主合同")
Filter = ("应收费日期 <= \'" & dq & "\' or (合同结束日期 <= \'" & dq & "\') And (已终止 = 0 Or 已终止 Is null)")
If Filter IsNot Nothing Then
MessageBox.Show("近10天有合同收费或到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
.LoadFilter = Filter
.LoadTop = 14
.loadPage = 0
.load()
MainTable = Tables("主合同")
Forms("合同主窗口").Open()
Functions.Execute("合同主窗口显示页码")
Else
End If
End With
窗口下一页按钮Click代码：
With DataTables("主合同")
If .LoadPage < .TotalPages - 1 Then
.LoadPage = .LoadPage + 1
.Load()
End If
End With
Functions.Execute("合同主窗口显示页码")
刚进入系统时显示这样：
此主题相关图片如下：1.png
貌似正常（只是加载了符合到期条件的合同），但是按下一页（或者是最后页）翻页按钮，窗口表数据就变了（好像重新加载了全部数据）。
此主题相关图片如下：2.png
此主题相关图片如下：3.png
此现象，自己一直无法解决，望老师们能够给予帮助，本人不胜感激！对于Foxtable，自己是太喜欢，无奈底子太薄，有些问题也许是不应该问的。望见谅！
-- 发布时间：2017/9/29 12:05:00
--
设置LoadOver为_Identify
.LoadOver = "_Identify"
如果还有问题，做个例子上来测试。