专家坐堂-字符转换判断错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符转换判断错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128139)

--  作者：宁老师SQE
--  发布时间：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
抄了一段代码出现错误请问如何修改并参考那块的帮助文件

--  作者：有点甜
--  发布时间：2018/11/29 16:30:00
--

改成

        Dim drv As DataRow = DataTables("新产品开发阶段表").Find("产品代号 = \'" & e.OldValue & "\' And 最终确认=true ")

--  作者：宁老师SQE
--  发布时间：2018/11/29 16:39:00
--
改完以后试着增加行提醒

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

可是我数据表里有最终确认列啊

--  作者：宁老师SQE
--  发布时间：2018/11/29 16:41:00
--
好了找到问题了表格名称写错了麻烦了啊

--  作者：宁老师SQE
--  发布时间：2018/11/29 16:57:00
--
为什么代码按照您给的写完了最终确认列并没有起作用呢

--  作者：有点甜
--  发布时间：2018/11/29 17:07:00
--

以下是引用宁老师SQE在2018/11/29 16:57:00的发言：
为什么代码按照您给的写完了最终确认列并没有起作用呢

贴出你所写的代码，以及说明一下你希望操作什么以后，达到什么效果？

--  作者：宁老师SQE
--  发布时间：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

--  作者：有点甜
--  发布时间：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

http://www.foxtable.com/webhelp/scr/2292.htm

--  作者：宁老师SQE
--  发布时间：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

哪位老师帮忙改一下就是改不对了

--  作者：有点甜
--  发布时间：2018/11/29 21:16:00
--

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

输入什么，弹出什么才是正确的？