主题：代码调试异常

Select Case e.StripItem.Name

    Case "员工一键导入"
        '首先加载员工档案管理
        With DataTables("员工档案管理")
            .LoadFilter = ""
            .Load()
        End With

        '一键读取员工数据
        Dim f As New Filler
        f.SourceTable = DataTables("员工档案管理") 
        f.SourceCols = "工号" 
        f.DataTable = DataTables("人力资源考勤管理") 
        f.DataCols = "工号" 
        '设置加载条件
        Dim dt As Date = Date.Today
        Dim y As Integer = dt.Year
        If dt.Month = 1 Then '如果考勤统计日是1月份
            fl = "在职状态 = '在职' and (离职年 = y-1  and 离职月 = 12)  and  (离职年 = y  and 离职月 = 1) " '加载在职人员 +上年12月离职人员 +本年1月离职人员
        'Else
            Dim m As Integer = dt.Month
            fl = "在职状态 = '在职'  and (离职年 = y  and 离职月 = m) and  (离职年 = y and 离职月 = m-1)" '加载在职人员+ 本年本月离职+ 本年上月离职
         End If
        f.Filter  = fl
        f.Fill() '填充数据
End Select

 

老师您好，这段代码哪里错了，调试的时候总是提示 y列不存在。请指教谢谢！

好难理解老师，您帮我改一下，我再对比着消化学习，调了半天没调出来

老师您好，先帮个忙改一下好么，谢谢，着急用

对不起老师，没看到，谢谢！

    Case "员工一键导入"
        '首先加载员工档案管理
        With DataTables("员工档案管理")
            .LoadFilter = ""
            .Load()
        End With
        '一键读取员工数据
        Dim f As New Filler
        f.SourceTable = DataTables("员工档案管理") '指定数据来源
        f.SourceCols = "工号" '指定数据来源列
        f.DataTable = DataTables("人力资源考勤管理") '指定数据接收表
        f.DataCols = "工号" '指定数据接收列
        '设置加载条件
        Dim dt As Date = Date.Today
        Dim y As Integer = dt.Year
        Dim fl As String
        Dim m As Integer = dt.Month
        If dt.Month = 1 Then '如果考勤统计日是1月份
            fl = "在职状态 = '在职' And (离职年 =" & y-1 & "  And  离职月 = 12)  And (离职年 =" & y & "  And 离职月 = 1)"
        Else
            fl = "在职状态 = '在职' And (离职年 =" & y & " And  离职月 =" & m & ") And  (离职年 =" & y & " And  离职月 =" & m-1 & ")"
        End If
        f.Filter  = fl
        f.Fill() '填充数据

 

老师您好，改过了，执行命令的时候没有反应。

老师我看了一下有符合条件的数据啊

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

点击浏览该文件:加载失败.rar

奇怪了，还是没反应，员工档案管理中的字段【辞职年】和【辞职月】是整数型，和数据类型没关系吧？

好了老师，把第一个and改成or就好了，谢谢