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

' Tables("报价单").Current.Clone()

' Tables("报价明细").save

' Dim idx As String

' Tables("报价单").Current("订单编号") =Tables("报价单").Current("订单编号") & "*"

If usna Like "业务*" Or usna="admin" Or usna="研发-祝炫丽" Then

Dim r As Row = Tables("报价单").Current

Dim dnew As Row = Tables("报价单").AddNew

'Dim name As String = r("订单编号") & "*"

Dim name As String = r("报价编号ID") & "*"

For Each c As Col In Tables("报价单").Cols

If c.Name <> "研发管理费" And c.Name <> "后勤管理费" And c.Name <> "制造费" Then

' If c.Name = "订单编号" Then

If c.Name = "报价编号ID" Then

dnew(c.Name) = name

ElseIf c.Name <> "_Identify" Then

dnew(c.Name) = r(c.Name)

End If

Tables("报价单").Current("财务审核") = Nothing

Tables("报价单").Current("总经理审批") = Nothing

Dim drs As List(Of DataRow)

drs = r.DataRow.GetChildRows("报价明细")

Dim rc As DataRow

For Each dr As DataRow In drs

rc = dr.Clone

' rc("订单编号") = name

rc("报价编号ID") = name

Else

MessageBox.show("你无此操作权限!")

End If

执行上面按钮代码后产生错误：

无法将值“正无穷大”转换为类型: System.Decimal。

此主题相关图片如下：未命名.png

[此贴子已经被作者于2018/6/25 11:36:58编辑过]

If e.DataCol.Name = "订单编号" Then '如果内容发生变动的是品名列

If e.NewValue IsNot Nothing Then '如果新值是空白,也就是品名列的内容为空

' e.DataRow("系列") = Nothing '那么清空此行单价列的内容

' e.DataRow("款号") = Nothing

' Else

Dim dr As DataRow

'否则在产品表查找同名的产品行,将找到的行赋值给变量dr

dr = DataTables("报价申请").Find("[订单编号] = '" & e.NewValue & "'")

If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

e.DataRow("系列") = dr("业务部_系列")

e.DataRow("款号") = dr("业务部_款号")

e.DataRow("客户名称") = dr("业务部_客户")

e.DataRow("业务跟单") = dr("业务部_业务跟单")

e.DataRow("类别") = dr("业务部_类别")

e.DataRow("款图") = dr("研发部_款图")

e.DataRow("研发部报价审核状态") = dr("研发部_报价审核状态")

End If

currentChanged无代码

[此贴子已经被作者于2018/6/25 12:02:39编辑过]

这个错误之前都没有的，不知道今天怎么跑出来了。

我把DataColChanged代码全部注释掉这个错误依然有，只要一点按钮就会产生

只有在数据库里将通过按钮代码新增的行删除掉，这个错误才会取消。

[此贴子已经被作者于2018/6/25 12:37:49编辑过]

单独在命令窗口执行没错

主题：这种错误怎么查？