If e.DataCol.Name("新设备工装检具规划表_类别") Then
If e.DataRow("新设备工装检具规划表_类别") = "工装" Then
If e.DataRow("新设备工装检具规划表_撤销核准") = True Then
DataTables("工装总览表").DeleteFor("工装编号='" & e.DataRow("新设备工装检具规划表_标识") & "'")
End If
ElseIf e.DataRow("新设备工装检具规划表_类别") = "设备" Then
If e.DataRow("新设备工装检具规划表_撤销核准") = True Then
DataTables("基础设施管理系统").DeleteFor("设备总览表_设备编号='" & e.DataRow("新设备工装检具规划表_标识") & "'")
End If
Else e.DataRow("新设备工装检具规划表_类别") = "检具"
If e.DataRow("新设备工装检具规划表_撤销核准") = True Then
DataTables("测量设备仪器总表").DeleteFor("本厂编号='" & e.DataRow("新设备工装检具规划表_标识") & "'")
End If
End If
End If
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:08.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2022-6/202261214494132933.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:821.png