[求助]关于合同快到期加载提醒的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

目前，项目基本上做完了（能够达到自己的要求），现在出现了以下怪现象，看图：

内部函数： 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 11:45:07编辑过]

主题：[求助]关于合同快到期加载提醒的问题