以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】find 查找报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173635)

--  作者:王小风
--  发布时间:2021/12/9 10:40:00
--  【求助】find 查找报错
下边代码在单元格输入值报错:Dim bz As DataRow 
bz=DataTables("工艺标准").Find("工艺编号=\'" & e.NewValue("排产信息_订单_工艺标准") &"\'")
If e.DataCol.Name="排产信息_订单_工艺标准" AndAlso e.NewValue("排产信息_订单_工艺标准") isnot nothing
    If bz Is Nothing
        MessageBox.Show("禁止修改,请检查工艺标准是否正确!!!")
        e.Cancel=True
    End If
End If
报错:
错误所在事件:表,生产表,数据列更改
详细错误信息:
调用的目标引发了异常。
从字符串转换"排产信息_订单_工艺标准"键入“整数”无效。
输入字符串格式不正确。

我输入的值 在“工艺标准表“可以找到对应的值

--  作者:有点蓝
--  发布时间:2021/12/9 10:49:00
--  

If e.DataCol.Name="排产信息_订单_工艺标准" AndAlso e.NewValue isnot nothing
Dim bz As DataRow 
bz=DataTables("工艺标准").Find("工艺编号=\'" & e.NewValue &"\'")
    If bz Is Nothing
        MessageBox.Show("禁止修改,请检查工艺标准是否正确!!!")
        e.Cancel=True
    End If
End If

--  作者:王小风
--  发布时间:2021/12/9 11:02:00
--  
谢谢大佬   我也是进入误区了