Foxtable(狐表)用户栏目专家坐堂 → 【求助】find 查找报错


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

主题:【求助】find 查找报错

帅哥哟,离线,有人找我吗?
王小风
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:468 威望:0 精华:0 注册:2021/9/2 16:35:00
【求助】find 查找报错  发帖心情 Post By:2021/12/9 10:40:00 [只看该作者]

下边代码在单元格输入值报错: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
报错:
错误所在事件:表,生产表,数据列更改
详细错误信息:
调用的目标引发了异常。
从字符串转换"排产信息_订单_工艺标准"键入“整数”无效。
输入字符串格式不正确。

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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
王小风
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:43 积分:468 威望:0 精华:0 注册:2021/9/2 16:35:00
  发帖心情 Post By:2021/12/9 11:02:00 [只看该作者]

谢谢大佬   我也是进入误区了

 回到顶部