主题：[求助]单元格输入值后删除其它行如何写代码

临时表中，单元格内容输入后，如何删除其它未输入内容的行？如图，可编辑人员输入后，1，2，4行删除，并把部门角色及数据填报者清空。代码要写在哪里，如何写？我在DataColChanged事件中写

If e.DataCol.Name = "B可编辑人员" Then
    e.DataRow("部门") = ""
    e.DataRow("角色") = ""
    e.DataRow("B数据填报者") = Nothing
    e.DataRow("B隐藏列") = ""

    e.DataTable.DeleteFor("B可编辑人员 = ''")
End If

行1，2，4未删除在AfterEdit事件中写

If e.Col.Name = "B可编辑人员" Then
    If e.Row(e.Col) IsNot Nothing Then
        e.Table.DataTable.DeleteFor("B可编辑人员 = ''")
    End If
End If

行1，2，4也不能删除。

此主题相关图片如下：qq图片20161028081501.png