Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:5 积分:185 威望:0 精华:0 注册:2023/12/21 12:52:00
[求助]  发帖心情 Post By:2024/6/3 15:40:00 [只看该作者]

有任务单表和排产表,想任务单表增加新流程卡号,图号,属性,派工数量这几个数据后自动在排产表里录入。
Select Case e.DataCol.Name
    Case "流程卡号", "图号", "属性", "派工数量"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("流程卡号") = False AndAlso dr.IsNull("图号") = False AndAlso dr.IsNull("属性") = False AndAlso dr.IsNull("派工数量") = False Then
            Dim filter As String
            filter = "流程卡号 = '" & dr("流程卡号") & "' And 图号 = '" & dr("图号") & "' And 属性 = '" & dr("属性") & "' And 派工数量 = '" & dr("派工数量") & "'"
            pr = DataTables("排产表").Find(filter)
            If pr Is Nothing Then
                pr = DataTables("排产表").addnew
                pr("流程卡号") = dr("流程卡号")
                pr("图号") = dr("图号")
                pr("属性") = dr("属性")
                pr("派工数量") = dr("派工数量") 
            End If
         End If
End Select
错误所在事件:表,ERP流程卡登记表1, DataColChanged
详细错误信息:
调用的目标发生了异常。
无法在 System.Int32 和 System.String 上执行“=”操作。

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


加好友 发短信
等级:狐神 帖子:4771 积分:34663 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/6/3 15:52:00 [只看该作者]

filter = "流程卡号 = '" & dr("流程卡号") & "' And 图号 = '" & dr("图号") & "' And 属性 = '" & dr("属性") & "' And 派工数量 = '" & dr("派工数量") & "'"

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


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/3 15:55:00 [只看该作者]

如果是数值列,不需要添加单引号,比如派工数量是整数,那么

filter = "流程卡号 = '" & dr("流程卡号") & "' And 图号 = '" & dr("图号") & "' And 属性 = '" & dr("属性") & "' And 派工数量 = " & dr("派工数量")

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


加好友 发短信
等级:婴狐 帖子:5 积分:185 威望:0 精华:0 注册:2023/12/21 12:52:00
  发帖心情 Post By:2024/6/3 16:36:00 [只看该作者]

谢谢

 回到顶部