试试到没有问题的电脑里把程序复制到有问题的电脑测试看看有没有问题
大概看了一下代码，看到弯头开料单datacolchanged事件有2个新增行的用法，不知道是不是这里的原因，自己测试一下
……
'KS/PT/ETB/EJ/GR产品自动添加零件-开始
If e.DataCol.name ="套数" Then
If e.newvalue IsNot Nothing Then
If e.DataRow.IsNull("生产piao号") = False AndAlso e.DataRow.IsNull("订单号") = False AndAlso e.DataRow.IsNull("制造产品号") = False AndAlso e.DataRow.IsNull("原材料") AndAlso e.DataRow.IsNull("型号") AndAlso e.DataRow.IsNull("开料参数") AndAlso e.DataRow.IsNull("标识") Then
'KS产品自动添加零件-开始
If e.DataRow("制造产品号").startswith("KS") Then
Dim Filter As String = "[制造产品号] = '" & e.DataRow("制造产品号") & "'"
Dim drs As List(Of DataRow) = DataTables("KSBOM").Select(Filter)
Dim dr2 As String
Dim dr3 As String
Dim dr4 As String
Dim dr5 As Integer
Dim dr6 As String
For i As Integer = 0 To drs.Count - 1
If i = 0 Then
dr6 = e.DataRow("制造产品号")
e.DataRow("型号") = drs(i)("型号")
e.DataRow("原材料") = drs(i)("原材料")
e.DataRow("开料参数") = drs(i)("开料参数")
e.DataRow("标识") = drs(i)("标识")
e.DataRow("毫米长度") = drs(i)("毫米长度")
e.DataRow("长度") = drs(i)("长度")
e.DataRow("数量") = drs(i)("数量") * e.DataRow("套数")
dr2 = e.DataRow("生产piao号")
dr3 = e.DataRow("piao号")
dr4 = e.DataRow("订单号")
dr5 = e.DataRow("套数")
Else
Dim nr As Row = Tables("弯头开料单").addnew
nr("制造产品号") = dr6
nr("型号") = drs(i)("型号")
nr("原材料") = drs(i)("原材料")
nr("开料参数") = drs(i)("开料参数")
加好友 
发短信
Post By：2021/5/12 11:02:00 [只看该作者]
