Foxtable(狐表)用户栏目专家坐堂 → 甜版,表达式问题求教!!!!!


  共有8147人关注过本帖树形打印复制链接

主题:甜版,表达式问题求教!!!!!

帅哥哟,离线,有人找我吗?
有点甜
  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:14:00 [只看该作者]

1、

 

If e.DataCol.Name = "鉴定等级" Then
    If Forms("报名登记").Opened Then
        Forms("报名登记").Controls("总人数").Text = e.DataTable.Compute("count(姓名)",Tables("报名登记表").filter)
        Forms("报名登记").Controls("初级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '初级工' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名登记").Controls("中级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '中级工' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名登记").Controls("高级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '高级工' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名登记").Controls("技师").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '技师' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名登记").Controls("高级技师").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '高级技师' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名登记").Controls("男").Text = e.DataTable.Compute("count(姓名)", "性别 = '男' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名登记").Controls("女").Text = e.DataTable.Compute("count(姓名)", "性别 = '女' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
    End If
    If e.DataRow("鉴定等级") = "技师" Then
        Dim fdr As DataRow = DataTables("证书编号表").Find("鉴定等级 = '高级工' And 申报鉴定工种 = '" & e.DataRow("申报鉴定工种") & "' And convert(substring(鉴定批次,1,4),'System.Int32') <= " & Date.Today.Year - 5)
        If fdr IsNot Nothing Then
            e.DataRow("是否合格") = True
        Else
            e.DataRow("是否合格") = False
        End If
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:14:00 [只看该作者]

1、2全部参考 61楼

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng7177
  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:3216 威望:0 精华:0 注册:2014/12/2 9:23:00
  发帖心情 Post By:2015/1/7 22:27:00 [只看该作者]

上面黑体字部分没理解,这在“报名登记表”的DataColChanged事件中已存在,红字部分到是能理解,是下接加在这个事件已有代码的后面?而不是建1按钮放在其click事件中?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:28:00 [只看该作者]

 输入鉴定等级的时候,自动触发代码啊。

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng7177
  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:3216 威望:0 精华:0 注册:2014/12/2 9:23:00
  发帖心情 Post By:2015/1/7 22:31:00 [只看该作者]

没明白,我这个登记表的内容都是通过导入EXCEL表得来的,何来输入“鉴定等级”?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:32:00 [只看该作者]

那你就重置列


 回到顶部
帅哥哟,离线,有人找我吗?
lisheng7177
  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:3216 威望:0 精华:0 注册:2014/12/2 9:23:00
  发帖心情 Post By:2015/1/7 22:42:00 [只看该作者]

另外红字部分的<= " & Date.Today.Year - 5),我不是很明白,我理解就是2010之前(含2010年)才可以报名?还有就是代码中的鉴定批次其实跟报名条件没任何关系,但在代码中出现我搞不懂?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:45:00 [只看该作者]

 取出取得证书的年份啊。

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng7177
  69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:3216 威望:0 精华:0 注册:2014/12/2 9:23:00
  发帖心情 Post By:2015/1/7 23:07:00 [只看该作者]

越看越糊涂!1、如果是以取得证书年份,从证书编号表里就能取,如证书号:0551003183400001,固定的前两位就是取得证书年份,这个号意思就是2005年取得的,2015-2005=10,满足高级工证书拿满3年的报考要求之一,我如果再加上“申报鉴定的工种”判断,如没变则该员符合报考条件,在“是否合格”列自动出现“是”,现在我特意让其中1个员工全部符合,但没反应,重置列也不行!

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng7177
  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:3216 威望:0 精华:0 注册:2014/12/2 9:23:00
  发帖心情 Post By:2015/1/7 23:09:00 [只看该作者]

还有就是证书号码的比对是不是该员工的代码,好象也没有,因为有些员工在报名的时候会造假证书号,所以拿证年份够、工种对也要查这1条!

 回到顶部
总数 93 上一页 1 2 3 4 5 6 7 8 9 10 下一页