'更新所应用的产品
If e.DataCol.Name = "模具型号" Then
e.DataRow("所应用的产品") = Nothing
Dim Filter91 As String = "[模具型号] = '" & e.DataRow("模具型号") & "'"
Dim drs91 As List(Of DataRow) = DataTables("物料字典").Select(Filter91)
For Each dr91 As DataRow In drs91
If dr91 IsNot Nothing
If e.DataRow("所应用的产品") = Nothing
e.DataRow("所应用的产品") = dr91("物料编号")
Else
e.DataRow("所应用的产品") = e.DataRow("所应用的产品") & "," & dr91("物料编号")
End If
End If
Next
End If
上面的代码是在 datacolchanged 里面的，以前一直都没问题的，但是现在发现它不执行了，也没有任何警告。请问是什么原因？
加好友 
发短信
Post By：2021/11/20 10:22:00 [只看该作者]
