- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 项目问题求助版主！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101720)
-- 发布时间：2017/6/6 10:12:00
-- 项目问题求助版主！
1、项目中“证书编号”窗口，“申报鉴定工种”是报名时的叫法，“鉴定工种”是上报主管部门时的叫法，因为行业规定这是不能改变的。
2、现在的问题是“中级工、高级工、技师”三个等级中的“农网配电营业工（配电）、农网配电营业工（营业）、用电监察（检查）员”3个工种及高级技师中的“用电监察（检查）员”1个工种，在“申报鉴定工种”列输入这几个工种后，“鉴定工种”、“代码”列没有反应，但其它的工种又没问题，是代码的问题吗？烦求版主指点！谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:鉴定管理.rar |
-- 发布时间：2017/6/6 10:26:00
--
改代码
Dim dr As DataRow
dr = DataTables("工种目录表").Find("[" & e.DataRow("鉴定等级") & "] = \'" & e.NewValue & "\'")
If dr IsNot Nothing
e.DataRow("鉴定工种") = dr("鉴定工种")
e.DataRow("代码") = dr("工种代码")
e.DataRow("职业技能鉴定机构名称") = "江西省发供电及电力建设国家职业技能鉴定站"
e.DataRow("鉴定中心") = "江西"
End If
-- 发布时间：2017/6/6 10:55:00
--
谢谢版主！中级工、高级工、技师的没问题了，但“高级技师”的用这段代码替代没反应，高技的“鉴定工种”和“代码”要用到“工种目录表”里的“高级技师”和“高技代码”列，我是用下列代码，版主给看看我依葫芦画瓢改的代码有什么问题吗？
Dim dr As DataRow
dr = DataTables("工种目录表").Find("[" & e.DataRow("鉴定等级") & "] = \'" & e.NewValue & "\'")
If dr IsNot Nothing
e.DataRow("鉴定工种") = dr("高级技师")
e.DataRow("代码") = dr("高技代码")
e.DataRow("职业技能鉴定机构名称") = "江西省发供电及电力建设国家职业技能鉴定站"
e.DataRow("鉴定中心") = "江西"
End If
-- 发布时间：2017/6/6 11:19:00
--
dr = DataTables("工种目录表").Find("[鉴定工种] = \'" & e.NewValue & "\' or 高级工 = \'" & e.newvalue & "\'")