Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符转换判断错误


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

主题：字符转换判断错误
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		字符转换判断错误  发帖心情 Post By：2018/11/29 16:11:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "产品代号" 
        Dim drv As DataRow = DataTables("新产品开发阶段表").Find("产品代号 = '" & e.OldValue & "'" And  " 最终确认 "  = True )
        If drv Is Nothing Then
            drv = DataTables("新产品开发阶段表").AddNew()
            drv("产品代号") = e.DataRow("产品代号")
        Else
            drv("产品代号") = e.DataRow("产品代号")
        End If
            Dim drb As DataRow = DataTables("新产品开发阶段表").Find("产品代号 = '" & e.DataRow("产品代号") & "'")
        If drb IsNot Nothing Then
            drb(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select


图片点击可在新窗口打开查看此主题相关图片如下：360截图16280721779093.png
图片点击可在新窗口打开查看
抄了一段代码  出现错误 请问如何修改   并参考那块的帮助文件
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/29 16:39:00 [显示全部帖子]

改完以后 试着增加行 提醒

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.3.3.1
错误所在事件：表，报价阶段表，DataColChanged
详细错误信息：
调用的目标发生了异常。
未找到列 [最终确认]。

可是我数据表里有最终确认列啊
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/29 16:41:00 [显示全部帖子]

好了 找到问题了图片点击可在新窗口打开查看图片点击可在新窗口打开查看表格名称写错了   麻烦了啊
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/29 16:57:00 [显示全部帖子]

为什么  代码按照您给的写完了 最终确认列并没有起作用呢图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/29 18:52:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "产品代号"  
          Dim drv As DataRow = DataTables("报价阶段表").Find("产品代号 = '" & e.OldValue & "' And 最终确认 = true ")
        If drv Is Nothing Then
            drv = DataTables("新产品开发阶段表").AddNew()
            drv("产品代号") = e.DataRow("产品代号")
        Else
            drv("产品代号") = e.DataRow("产品代号")
        End If
            Dim drb As DataRow = DataTables("报价阶段表").Find("产品代号 = '" & e.DataRow("产品代号") & "'And 最终确认 = true")
        If drb IsNot Nothing Then
            drb(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
图片点击可在新窗口打开查看此主题相关图片如下：360截图1653071468102108.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/29 20:40:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "产品代号","是否立项","供应商","参与报价","提交反馈" ,"最终确认","供应商报价_模具价格" , "供应商报价_铸造价格" , "供应商报价_加工价格" ,"提交反馈" ,"最终价格_模具价格" ,"总经理确认" , "最终价格_铸造价格" ,"最终价格_加工价格" ,"客户最终报价_模具价格" ,"客户最终报价_铸造价格" , "客户最终报价_加工价格" ,"供应商采购合同" ,"客户采购合同" , "报价结束"
        Dim dr As DataRow = e.DataRow
        Dim jd As String = "1A"
        If dr.IsNull("产品代号") = False AndAlso dr.IsNull("是否立项") = False Then
            jd = "1B"
            If dr.IsNull("供应商") = False AndAlso dr.IsNull("参与报价") = False Then
                jd = "2B"
                If dr.IsNull("供应商报价_模具价格") = False AndAlso dr.IsNull("供应商报价_铸造价格") = False AndAlso dr.IsNull("供应商报价_加工价格") = False AndAlso dr.IsNull("提交反馈") = False Then
                    jd = "3B"
                    If dr.IsNull("最终价格_模具价格") = False AndAlso dr.IsNull("总经理确认") = False dr.IsNull("最终价格_铸造价格") = False AndAlso dr.IsNull("最终价格_加工价格") = False Then
                        jd = "4B"
                        If dr.IsNull("客户最终报价_模具价格") = False AndAlso dr.IsNull("客户最终报价_铸造价格") = False dr.IsNull("客户最终报价_加工价格") = False AndAlso dr.IsNull("供应商采购合同") = False AndAlso dr.IsNull("客户采购合同") = False AndAlso dr.IsNull("报价结束") = False Then
                            jd = "5B"
                            If dr.IsNull("最终确认") = False Then
                                jd = "6B"
                            End If
                        End If
                    End If
                End If
            End If
        End If
        If jd = "1B" AndAlso dr("进度") = "2A" Then 
        ElseIf jd = "2B" AndAlso dr("进度") = "3A" Then
        ElseIf jd = "3B" AndAlso dr("进度") = "4A" Then
        ElseIf jd = "4B" AndAlso dr("进度") = "5A" Then
        ElseIf jd = "5B" AndAlso dr("进度") = "6A" Then
        Else
            dr("进度") = jd
        End If
End Select




哪位老师帮忙改一下  就是改不对了
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/30 8:50:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：360截图1653071468102108.png
图片点击可在新窗口打开查看
代码写完了 一按确定就显示这个  
我就抄帮助文件里的数据流转移之一的文件想写一个流程  结果就这样了图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/30 15:25:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:丹东恒锐.table


图片点击可在新窗口打开查看此主题相关图片如下：360截图16261009374871.png
图片点击可在新窗口打开查看
当一个流程完了下一流程负责人登陆以后以后会自动提醒下他进去行处理，
结果弄了很长时间就然还提醒错误，也试了很多办法就是没达到理想状态
这就十分尴尬了
图片点击可在新窗口打开查看此主题相关图片如下：360截图16480302777776.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/30 16:27:00 [显示全部帖子]

1.是按照这样格式写的啊 没问题啊
2.我也是照着帮着文件写的  结果也是不行  无语了
3.能不能麻烦老师帮调试一下啊图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00 		  发帖心情 Post By：2018/11/30 16:40:00 [显示全部帖子]

尤其是抄帮助文件写的按钮机会都不好使

 回到顶部
总数 11 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.05859 秒, 6 次数据查询