请教：以下代码
自动生成行没问题，自动删除行没反应，是什么问题
Select Case e.DataCol.name
Case "编制"
If e.DataRow("编制") = False Then
DataTables("项目用无损检验资质清单").DeleteFor("生产令号 = '" & e.DataRow("生产令号") & "'And 机组 = '" & e.DataRow("机组") & "'And 资质名称 = '" & e.DataRow("编制人资质") & "' And 姓名 = '" & e.DataRow("编制人") & "'And 等级 = '" & e.DataRow("编制人等级") & "'")
Else
Dim ndr As DataRow = DataTables("项目用无损检验资质清单").Find("生产令号 = '" & e.DataRow("生产令号") & "'And 机组 = '" & e.DataRow("机组") & "'And 资质名称 = '" & e.DataRow("编制人资质") & "' And 姓名 = '" & e.DataRow("编制人") & "'And 等级 = '" & e.DataRow("编制人等级") & "'")
If ndr Is Nothing Then
Dim nr As Row = Tables("项目用无损检验资质清单").AddNew
nr.Move(0)
ndr = nr.DataRow
End If
ndr("生产令号") = e.DataRow("生产令号")
ndr("项目名称") = e.DataRow("项目名称")
ndr("机组") = e.DataRow("机组")
ndr("姓名") = e.DataRow("编制人")
ndr("资质名称") = e.DataRow("编制人资质")
ndr("等级") = e.DataRow("编制人等级")
End If
End Select
加好友 
发短信
Post By：2019/5/14 16:18:00 [显示全部帖子]
