主题：自动删除行

弹出这个信息，看条件是否正确

 

msgbox("生产令号 = '" & e.DataRow("生产令号") & "'And 机组 = '" & e.DataRow("机组") & "'And 资质名称 = '" & e.DataRow("编制人资质") & "' And 姓名 = '" & e.DataRow("编制人") & "'And 等级 = '" & e.DataRow("编制人等级") & "'")

 

然后再在命令窗口执行

 

Tables("项目用无损检验资质清单").filter = 弹出的条件

 

看是否可以正常筛选数据出来

 

 

弹出窗口那里ctrl+c复制内容，粘贴到命令窗口那里测试。

 

贴出你复制的内容，发上来看看。

 

 

 

DataTables("项目用无损检验资质清单").DeleteFor("生产令号 = '" & e.DataRow("生产令号") & "'And 机组 = '" & e.DataRow("机组") & "'And 资质名称 = '" & e.DataRow("编制人资质") & "' And 姓名 = '" & e.DataRow("编制人") & "'And 等级 = '" & e.DataRow("编制人等级") & "'")

 

改成

 

Dim filter As String = "1=1"

If e.DataRow("编制人等级") = Nothing Then

    filter &= " and 等级 is null"

Else

    filter &= " and 等级 = '" & e.DataRow("编制人等级") & "'"

End If

If e.DataRow("编制人") = Nothing Then

    filter &= " and 姓名 is null"

Else

    filter &= " and 姓名 = '" & e.DataRow("编制人") & "'"

End If

 

......

 

msgbox(filter)

DataTables("项目用无损检验资质清单").DeleteFor(filter)