项目问题求助版主！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 项目问题求助版主！

共有1828人关注过本帖树形打印复制链接主题：项目问题求助版主！

lisheng1971

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：219 积分：1687 威望：0 精华：0 注册：2016/4/14 9:45:00

项目问题求助版主！ 发帖心情

Post By：2017/6/6 10:12:00 [只看该作者]

1、项目中“证书编号”窗口，“申报鉴定工种”是报名时的叫法，“鉴定工种”是上报主管部门时的叫法，因为行业规定这是不能改变的。

2、现在的问题是“中级工、高级工、技师”三个等级中的“农网配电营业工（配电）、农网配电营业工（营业）、用电监察（检查）员”3个工种及高级技师中的“用电监察（检查）员”1个工种，在“申报鉴定工种”列输入这几个工种后，“鉴定工种”、“代码”列没有反应，但其它的工种又没问题，是代码的问题吗？烦求版主指点！谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:鉴定管理.rar

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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