此主题相关图片如下：45.png
如图，已知父产品的时间，想将其”子集结日“引入子产品的”子集结日“里去，
父产品：If dr13.IsNull("部组名") = False AndAlso dr13.IsNull("部品ID") = True
子产品：If dr13.IsNull("部组名") = False AndAlso dr13.IsNull("部品ID") = False
写了以下代码，不对，请老师帮看看，谢谢！
Dim dr13 As DataRow = e.DataRow
If dr13.IsNull("部组名") = False AndAlso dr13.IsNull("部品ID") = True
dr13("子集结日") = dr13("第1序_配膳日").AddDays(-1)
Dim d1 As Date = e.DataRow("子集结日")
If d1.DayOfWeek = 0 Then
dr13("子集结日") = dr13("第1序_配膳日").AddDays(-2)
End If
End If
If dr13.IsNull("部组名") = False AndAlso dr13.IsNull("部品ID") = False
Dim d2 As Date = e.DataRow("子集结日")
d2("子集结日") = d1("子集结日")
End If
加好友 
发短信
Post By：2017/5/27 13:39:00 [只看该作者]
