以下代码问题在哪? 当修改产品代码或材料代码,即drs IsNot Nothing不成立时,应该
e.DataRow("产品用料") = Nothing
e.DataRow("材料") = Nothing
e.DataRow("产品型号规格") = Nothing
但清空不了。
'获取BOM表的产品用料|材料|产品型号规格
If e.DataCol.Name = "产品代码" Or e.DataCol.Name = "材料代码" Then
'在BOM表中找出该产品
Dim drs As List(Of DataRow) = DataTables("BOM").Select("产品代码 = " & "'" & e.DataRow("产品代码") & "' and 材料代码 = " & "'" & e.DataRow("材料代码") & "'" )
If drs IsNot Nothing Then
For Each dr As DataRow In drs
If dr IsNot Nothing Then
e.DataRow("产品用料") = dr("结构用料")
e.DataRow("材料") = dr("材料")
e.DataRow("产品型号规格") = dr("产品型号规格")
End If
Next
Else
e.DataRow("产品用料") = Nothing
e.DataRow("材料") = Nothing
e.DataRow("产品型号规格") = Nothing
End If
End If
加好友 
发短信
Post By：2017/12/21 20:04:00 [显示全部帖子]
