有任务单表和排产表,想任务单表增加新流程卡号,图号,属性,派工数量这几个数据后自动在排产表里录入。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 上执行“=”操作。
如果是数值列,不需要添加单引号,比如
派工数量是整数,那么
filter = "流程卡号 = '" & dr("流程卡号") & "' And 图号 = '" & dr("图号") & "' And 属性 = '" & dr("属性") & "' And 派工数量 = " & dr("派工数量")