主题：[求助]数据转换错误

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("过账日期")

                Dim pzs As List(of String) = dr("入库凭证号")

                Dim rq As String = CStr(e.DataRow("过账日期"))

                Dim pz As String = e.DataRow("入库凭证号")

                If rqs.Contains(rq) = False Then '判断是否存在当前日期

                    rqs.Add(rq)

                End If

                If pzs.Contains(pz) = False Then '判断是否存在当前凭证

                    rqs.Add(pz)

                End If

                 dr("入库数量") = e.DataTable.Compute("sum(入库数量)",f)

            Else

                MessageBox.Show("验收明细中没找到对应记录,无法更新过账日期/入库凭证号/入库数量信息!")

            End If

        End If

End Select