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


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

主题：字符转换判断错误
帅哥哟，离线，有人找我吗？
宁老师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
图片点击可在新窗口打开查看
抄了一段代码  出现错误 请问如何修改   并参考那块的帮助文件
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改成

 

        Dim drv As DataRow = DataTables("新产品开发阶段表").Find("产品代号 = '" & e.OldValue & "' And 最终确认=true ")
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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

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

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


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

以下是引用宁老师SQE在2018/11/29 16:57:00的发言：
为什么  代码按照您给的写完了 最终确认列并没有起作用呢图片点击可在新窗口打开查看

 

贴出你所写的代码，以及说明一下你希望操作什么以后，达到什么效果？
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Select Case e.DataCol.name
    Case "产品代号"  
        Dim drv As DataRow = DataTables("报价阶段表").Find("产品代号 = '" & e.OldValue & "' And 最终确认 = true ")
        If drv IsNot Nothing Then
            drv("产品代号") = e.DataRow("产品代号")
        End If
End Select
 
 
 回到顶部
帅哥哟，离线，有人找我吗？
宁老师SQE
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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




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


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

 

加入代码 msgbox(jd) 弹出什么？

 

输入什么，弹出什么才是正确的？
 回到顶部
总数 18 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.05273 秒, 4 次数据查询