Select Case e.DataCol.Name '入库后用入库明细更新验收验收记录
Case "入库数量"
If e.DataRow("未入库数量") < 0 Then
MessageBox.Show("入库数量不能超过验收数量","请确认")
e.DataRow("入库数量") = e.DataRow("验收数量")
Else
Dim dr As DataRow
Dim f As String = "到货日期 = #" & e.DataRow("到货日期") & "# and 物资合同编码 = '" & e.DataRow("物资合同编码") & "' and 验收日期 = #" & e.DataRow("验收日期") & "#"
dr = DataTables("验收明细").find(f)
If dr IsNot Nothing Then
Dim rqs As List(of String) = dr.Lines("过账日期")
Dim pzs As List(of String) = dr.Lines("入库凭证号")
Dim rq As String = CStr(e.DataRow("过账日期"))
Dim pz As String = e.DataRow("入库凭证号")
If rqs.Contains(rq) = False Then '判断是否存在当前日期
rqs.Add(rq)
dr.Lines("过账日期") = rqs
End If
If pzs.Contains(pz) = False Then '判断是否存在当前凭证
pzs.Add(pz)
dr.Lines("入库凭证号") = pzs
End If
dr("入库数量") = e.DataTable.Compute("sum(入库数量)",f)
Else
MessageBox.Show("验收明细中没找到对应记录,无法更新过账日期/入库凭证号/入库数量信息!")
End If
End If
End Select
加好友 
发短信
Post By：2021/8/29 20:16:00 [显示全部帖子]
