主题：帮忙找出错误！

If e.Col.Name = "售后" Then

    e.Cancel= True

    

    If e.Row(e.Col.name) = "处理结束!" Then

        Forms ("清楚提示"). Open()

    End If

    

    

    MainTable=Tables("维修")

    Dim dr As DataRow = DataTables("库").Find("编号")

    With CurrentTable

        Dim r As Integer

        r = .FindRow("[编号] = 'dr'") '从 第一行开始查找

        If r >= 0 Then '如果找到的话

            .Position = r '定位到找到的行.

        End If

运行提示：筛选表达式“编号”的计算结果不是布尔值项。