以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码运行效果不好  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145263)
--  作者：c369939688
--  发布时间：2020/1/14 9:50:00
--  [求助]代码运行效果不好
If e.DataCol.Name = "姓名" Then
    If e.DataRow("姓名") = Nothing Then
        e.DataRow.DELETE
    Else
        Dim dr As DataRow
        dr = DataTables("运维人员").Find("[员工姓名] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            e.DataRow.delete
        End If
    End If
End If
老师我在考勤汇总里面datacolchanged运行这段代码，使用高速合并功能后表头就不在了，真的很苦恼，麻烦老师帮忙梳理梳理！
--  作者：有点蓝
--  发布时间：2020/1/14 10:01:00
--  
高速合并不可能会影响表头。

另外这个用法不合逻辑，如果姓名有重复就提示重复然后提示改名，而不是直接删除行。

如果是为了在导入的时候去重，应该使用代码导入数据，参考：http://www.foxtable.com/webhelp/topics/2334.htm，而不是在datacolchanged事件控制