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


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

主题：按钮代码问题求助版主！！！！！！
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		按钮代码问题求助版主！！！！！！  发帖心情 Post By：2015/7/21 10:36:00 [显示全部帖子]

Dim Result As DialogResult
Result = MessageBox.Show("确定导出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)
Dim Cols1() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","现岗位名称","参加工作时间","现工种工作时间","原技术资格等级","原等级取得时间","原资格证书工种","原资格证书编号","鉴定等级","申报鉴定工种","鉴定批次","申报性质","用工性质","原人才当量值","备注","照片","是否合格","资格审核","鉴定时间"}
Dim Cols2() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","现岗位名称","参加工作时间","现工种工作时间","原技术资格等级","原等级取得时间","原资格证书工种","原资格证书编号","鉴定等级","申报鉴定工种","鉴定批次","申报性质","用工性质","原人才当量值","备注","照片","是否合格","资格审核","鉴定时间"}
For Each dr1 As DataRow In DataTables("报名登记表").Select("[资格审核] = True ")
    Dim dr2 As DataRow = DataTables("审核合格表").Find("身份证号码 = '" & dr1("身份证号码") & "' And 鉴定批次 = '" & dr1("鉴定批次") & "'")
    If dr2 Is Nothing Then
        dr2 = DataTables("审核合格表").AddNew
    End If
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

 

上述代码有什么问题吗？为什么一点“按钮”就死机，没反应？
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 10:55:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看谢谢版主！应该是Datacolchanged的代码问题，原来是可以的，只是我加了些代码就出问题了

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 11:22:00 [显示全部帖子]

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("原技术资格等级") = "助理工程师(电力类)" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "工程师(电力类)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "助理工程师(工业工程)" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "工程师(工业工程)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "高级工程师(电力类)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "高级工程师(工业工程)"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "破格评审"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "重新评审"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考实操"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考潜能"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考两项"
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "技师"
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        e.DataRow("是否合格") = fdr IsNot Nothing
    Else If e.DataRow("原技术资格等级") = "高级技师"
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        e.DataRow("是否合格") = fdr IsNot Nothing
    Else If e.DataRow("原技术资格等级") = "高级工" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3
        Dim dr As DataRow
        dr = DataTables("相近工种表").Find("工种 like '%" & e.DataRow("申报鉴定工种") & "%'")
        If dr IsNot Nothing Then
            Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 in ('" & dr("工种").Replace(",", "','") & "') And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
            e.DataRow("是否合格") = fdr IsNot Nothing
        Else
            e.DataRow("是否合格") = False
        End If
    End If
End If

这是Datacolchanged的原来的代码，正常！
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 11:24:00 [显示全部帖子]

If e.DataRow("鉴定等级") = "高级技师" Then
    Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "' And 鉴定等级 = '" & e.DataRow("原技术资格等级") & "' And 申报鉴定工种 = '" & e.DataRow("原资格证书工种") & "'")
    If fdr Is Nothing Then
        e.DataRow("是否合格") = False
    Else
        If fdr("鉴定等级") = "技师" AndAlso fdr("申报鉴定工种") = e.DataRow("申报鉴定工种") AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 2 Then
            e.DataRow("是否合格") = True
        Else
            e.DataRow("是否合格") = False
        End If
    End If
End If

If e.DataRow("鉴定等级") = "高级技师" Then
    If e.DataRow("是否合格") = True Then
        e.DataRow("资格审核") = True
    Else
        e.DataRow("资格审核") = False
    End If
End If

 

If e.DataRow("鉴定等级") = "中级工" Then
    If e.DataRow("申报性质") = "正常申报"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考实操"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考理论"
        e.DataRow("是否合格") = True
    Else
        e.DataRow("是否合格") = False
    End If
End If

If e.DataRow("鉴定等级") = "高级工" Then
    If e.DataRow("申报性质") = "正常申报"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考实操"
        e.DataRow("是否合格") = True
    Else If e.DataRow("申报性质") = "补考理论"
        e.DataRow("是否合格") = True
    Else
        e.DataRow("是否合格") = False
    End If
End If

If e.DataRow("鉴定等级") = "中级工" Then
    If e.DataRow("是否合格") = True Then
        e.DataRow("资格审核") = True
    Else
        e.DataRow("资格审核") = False
    End If
End If

If e.DataRow("鉴定等级") = "高级工" Then
    If e.DataRow("是否合格") = True Then
        e.DataRow("资格审核") = True
    Else
        e.DataRow("资格审核") = False
    End If
End If

 

这是Datacolchanged的后加的代码，就不正常了，请版主指教！
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 11:30:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看谢谢版主！！！！！！本人在代码方面很小白，都是依葫芦画瓢

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 14:09:00 [显示全部帖子]

If e.DataRow("鉴定等级") = "高级工" Then
    e.DataRow("是否合格") = True
End If

If e.DataRow("鉴定等级") = "中级工" Then
    e.DataRow("是否合格") = True
End If

Select Case e.DataCol.Name
    Case "鉴定等级",  "是否合格", "申报性质"
        If e.DataRow("鉴定等级") = "高级技师" Then
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
            Else
                e.DataRow("资格审核") = False
            End If
        End If
        If e.DataRow("鉴定等级") = "高级工" Then
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
                If e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("是否合格") = True Then
                    e.DataRow("资格审核") = True
                    If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("是否合格") = True Then
                        e.DataRow("资格审核") = True
                    Else
                        e.DataRow("资格审核") = False
                    End If
                End If
            End If
        End If
        If e.DataRow("鉴定等级") = "中级工" Then
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
                If e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("是否合格") = True Then
                    e.DataRow("资格审核") = True
                    If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("是否合格") = True Then
                        e.DataRow("资格审核") = True
                    Else
                        e.DataRow("资格审核") = False
                    End If
                End If
            End If
        End If
End Select

 

版主，上述是我修改的后加入的代码，原有代码不变，现在正常了，但就是时间很长，是不是代码上还有什么问题？请指教！！！！！！谢谢先！！！！！！
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 15:47:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看谢谢版主！！！！！！

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 15:50:00 [显示全部帖子]

这代码除了“高级工”和“中级工”不一样，其他要求都一样，是否可以优化一下？也可以少占些行数！是否可以用“OR”进行合并？

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/21 16:29:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看谢谢版主！！！！！这样看起来清爽多了！

 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/7/23 10:22:00 [显示全部帖子]

If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
            Else
                e.DataRow("资格审核") = False
            End If
           
        End If
End Select
求教版主：14楼End Select 上的几行代码是不是跟上一段的重复了？

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询