If e.DataCol.Name = "SN" Then
Dim nms() As String = {"数量","物料编码","产品型号","类别","配货单号","工单号","订单号","预入库单号","生产完成日期","预计入库日期"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim drs As List(Of DataRow) = DataTables("配货单").Select("[SN] = '" & e.NewValue & "'")
If drs.Count > 0 Then
SystemReady = False
For Each dr As DataRow In drs
Dim ndr As DataRow = e.DataTable.AddNew
msgbox(drs.count)----------没弹出
msgbox(ndr("SN"))----------没弹出
If dr("提示") = "扫描完成" Then
For Each nm As String In nms
ndr(nm) = dr(nm)
Next
ndr("提示") = "重复扫描"
dr("提示") = "扫描完成"
msgbox("已执行")-----------没弹出
Else
For Each nm As String In nms
ndr(nm) = dr(nm) -----都正常赋值，执行过，有正确的结果
Next
If e.DataRow("预入库单号") <> e.DataRow("入库单号") Then
ndr("提示") = "非本入库单物料"
Else
ndr("提示") = "扫描完成"-----都正常赋值，执行过，有正确的结果
dr("提示") = "扫描完成"-----都正常赋值，执行过，有正确的结果
ndr("收货结束时间") = Date.now
msgbox("已执行")-----------没弹出
End If
End If
Next
e.DataRow.Delete
SystemReady = True
Else
e.DataRow("提示") = "序列号不存在"
End If
End If
End If
肯定触发datacolchange事件了，不然蓝色的代码怎么会有结果，表的各个字段值都从配货单取出来了，是正确的。
加好友 
发短信
Post By：2015/12/1 12:22:00 [只看该作者]
此主题相关图片如下：配货单.png
