主题：老师，我做的日历报错

str=2020-03-10

_表首=2020-11-30

d=-265

c=-5

很明显日期值不对，_表首赋值有问题，同样的调试方法，在哪里开始给_表首赋值的检查相关代码

此主题相关图片如下：qq图片20201222155101.png

老师，12月日历，_表首是11月30日对的啊？

如果是显示本月的日历，那么就是其它用户登录的时候加载的任务数据不对，明显【str=2020-03-10】是错的

我把我个人的事务数据全部删除，重新添加数据，又没问题了，搞不懂哪儿问题了

加上加载条件，显示那个月日历，就加载那个月数据。

老师，还是有问题，我问题出在下面我注释掉的两段代码，如果我不增加公开部门和事务对象就没问题，当公开部门和事务对象有数据时，就报错：

 

'数据表刷新方法

Public Sub 数据刷新()

'Dim Filter As String = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "' or " & n公开部门 & "='" & _UserGroup & "'"       'SQL Server数据源

'If 事务主表_dt.SourceType = 2 Then   'SQL Server数据源

    'Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "' or " & n公开部门 & "='" & _UserGroup & "'"

'End If

Dim Filter As String = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "'"       'SQL Server数据源

If 事务主表_dt.SourceType = 2 Then   'SQL Server数据源

    Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "'"

End If

事务主表_dt.LoadFilter = Filter

事务主表_dt.LoadTop = "5000"         '2020.02.04 这里是代码修改的部分(如果不添加此代码, 你查看自己的事务日历永远只有10条记录,5000代表可加载5000条记录)

事务主表_dt.LoadOrder = n事务时间

事务主表_dt.Load()

End Sub

 

'*****************************************新增内容开始********************************

'数据表刷新方法(按照筛选后在刷新)

Public Sub 当前表数据刷新()

'Dim Filter As String = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "' or " & n事务对象 & "='" & _UserXingMing & "' or " & n公开部门 & "='" & _UserGroup & "'"       'SQL Server数据源

'If 事务主表_dt.SourceType = 2 Then   'SQL Server数据源

    'Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "' or " & n事务对象 & "='" & _UserXingMing & "' or " & n公开部门 & "='" & _UserGroup & "'"

'End If

Dim Filter As String = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "'"       'SQL Server数据源

If 事务主表_dt.SourceType = 2 Then   'SQL Server数据源

    Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and " & n姓名 & "='" & _UserXingMing & "'"

End If

 

下面是全局代码中完整代码：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档.txt

请上传实例测试

就是加载条件问题，这样就没问题了

Dim Filter As String = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and ( " & n姓名 & "='" & _UserXingMing & "' or " & n事务对象 & "='" & _UserXingMing & "' or " & n公开部门 & "='" & _UserGroup & "')"