以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]删除重复行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141234)
--  作者：lgj716330
--  发布时间：2019/9/24 20:00:00
--  [求助]删除重复行
Select Case e.DataCol.Name
Case "部门编号"
        If e.DataRow.IsNull("部门编号") = False Then
            Dim dr2 As DataRow
            dr2 = DataTables("档案").Find("[部门编号] = \'" & e.DataRow("部门编号")& "\' and _Identify <> " & e.DataRow("_Identify") And e.DataRow.IsNull("业务编号"))
            If dr2 IsNot Nothing Then
                dr2.delete
            End If   
        End If
End Select

提示“调用的目标发生了异常”
调用的目标发生了异常。
从字符串“[部门编号] = \'1213500\' and _Identify”到类型“Boolean”的转换无效。
输入字符串的格式不正确。
--  作者：有点蓝
--  发布时间：2019/9/24 20:13:00
--  
dr2 = DataTables("档案").Find("[部门编号] = \'" & e.DataRow("部门编号")& "\' and _Identify <> " & e.DataRow("_Identify") & " And 业务编号 is null")