Dim tuhao As String=e.DataRow("图号")
Dim mingcheng As String=e.DataRow("名称")
Dim caizhi As String= e.DataRow("材质")
Dim chuli As String= e.DataRow("处理")
Dim chuku As Integer=0
If tuhao="" Then
tuhao="V"
End If
If mingcheng="" Then
mingcheng="V"
End If
If caizhi="" Then
caizhi="V"
End If
If chuli="" Then
chuli="V"
End If
e.DataRow("零件全称")=tuhao & mingcheng & caizhi & chuli
Select Case e.DataCol.name
Case "零件全称"
Dim dr As DataRow
Dim cnt As Integer = e.DataTable.SQLCompute("count(零件全称)","零件全称 = '" & e.OldValue & "'")
If cnt <= 1 Then
dr = DataTables("商品信息总表").sqlFind("零件全称 = '" & e.OldValue & "'")
If dr IsNot Nothing Then
'在 商品信息总表 中 找到了 零件全称 的 旧值
dr.Delete() '将 商品信息总表 中的 旧值删除
dr.Save
End If
End If
dr = DataTables("商品信息总表").sqlFind("零件全称 = '" & e.NewValue & "'")
If dr Is Nothing Then
'在 商品信息总表 中 没找到 零件全称 的 新值,则创建新的行,将 设计部出图 中的信息写入 商品信息总表 中
dr = DataTables("商品信息总表").AddNew()
End If
dr("图号") = e.DataRow("图号")
dr("名称") = e.DataRow("名称")
dr("材质") = e.DataRow("材质")
dr("处理") = e.DataRow("处理")
dr("零件全称") = e.NewValue
dr.save
e.DataRow.save
End Select
加好友 
发短信
Post By：2018/11/30 16:01:00 [只看该作者]
此主题相关图片如下：4.png
