主题：帮忙找出错误！

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

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

请看帮助：

find("编号")这里的编号应该是运算符和函数或条件表达式。我今天也犯了这个错。希望能帮到你。