Select Case e.DataCol.Name
Case "到货数量","到货_批次","到货_一次到全日期","到货_第一批到货日期"
If e.DataRow("到货数量") = 0 Then
DataTables("物资检验详单").DeleteFor("编号='" & e.DataRow("编号") & "'")
Else
If e.DataRow("物资说明") = "原材料" Then
DataTables("物资检验详单").DeleteFor("编号='" & e.DataRow("编号") & "'")
For i As Integer = 1 To e.DataRow("到货_批次")
Dim ndr As Row = Tables("物资检验详单").AddNew
ndr("编号") = e.DataRow("序号")
ndr("预算编号") = e.DataRow("预算编号")
ndr("生产令号") = e.DataRow("生产令号")
ndr("项目名称") = e.DataRow("项目名称")
ndr("物资说明") = e.DataRow("物资说明")
ndr("物资名称") = e.DataRow("物资名称")
ndr("规格") = e.DataRow("规格")
ndr("材质") = e.DataRow("材质")
ndr("单位") = e.DataRow("单位")
ndr("供应商") = e.DataRow("中标情况_中标单位")
ndr.Move(0)
Next
If e.DataRow.IsNull("到货_一次到全日期") = False AndAlso e.DataRow.IsNull("到货_第一批到货日期") = True Then
ndr("送检_送检日期") = e.DataRow("到货_一次到全日期")
Else
ndr("送检_送检日期") = e.DataRow("到货_第一批到货日期")
End If
End If
在自动增加行时送检日期需进行判断后生成,但按上面的编码,错误显示
此主题相关图片如下:捕获.jpg
要怎么改?
[此贴子已经被作者于2018/12/25 13:46:21编辑过]