贴出对应的执行导致报错的代码。

参考

http://www.foxtable.com/webhelp/scr/2668.htm

1、msgbox(filter) 弹出什么？

2、修改红色代码

With e.Form.Controls("开始日期1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "计划日期>= \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("结束日期1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "计划日期 < \'" & .Value.adddays(1) & "\'"
    End If
End With

去看你窗口表控件或者表属性beforeLoad事件或者afterLoad或者currentChanged等事件代码

如果写了，贴出代码；如果没有写代码，不可能报错。

1、你11楼这段代码写在什么事件？

2、去看看你表格【记录能力点汇总】的beforeLoad、AfterLoad、currentChanged事件，写了什么代码。

删除这句代码，然后测试

DataTables("记录能力点汇总").Load()

【记录能力点汇总】表，或者窗口表（引用了【记录能力点汇总】作为副本表的）

看其currenttChanged等事件，看写了什么代码。

那试试改成

SystemReady = False

DataTables("记录能力点汇总").Load()

SystemReady = True

检测和【记录能力点汇总】相关的事件代码。

再检测 DataTables("工作记录评价表").Load 这样的代码在那里又写了。

如果不会检测，上传具体你项目和数据库测试。