以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮忙找出错误！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69453)
--  作者：q2649295605
--  发布时间：2015/6/5 13:28:00
--  帮忙找出错误！
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
运行提示：筛选表达式“编号”的计算结果不是布尔值项。
[此贴子已经被作者于2015/6/5 13:29:38编辑过]
--  作者：morlay2013
--  发布时间：2015/6/5 13:33:00
--  
问题在这里： Dim dr As DataRow = DataTables("库").Find("编号")
请看帮助：
Find(Filter,Sort,Index)

Filter: 条件表达式，请参考表达式的运算符和函数 和 条件表达式。

find("编号")这里的编号应该是运算符和函数或条件表达式。我今天也犯了这个错。希望能帮到你。
--  作者：q2649295605
--  发布时间：2015/6/5 13:40:00
--  再帮帮我！
我就是不知道怎么用这个东西才犯这样的错误的！能不能帮我改下！或者指导我下！
--  作者：大红袍
--  发布时间：2015/6/5 14:06:00
--  
If e.Col.Name = "售后" Then
    e.Cancel= True
   
    If e.Row(e.Col.name) = "处理结束!" Then
        Forms ("清楚提示"). Open()
    End If
   
   
    MainTable=Tables("维修")
    With MainTable
        Dim r As Integer
        r = .FindRow("[编号] = \'" & e.Row("编号") & "\'") \'从 第一行开始查找
        If r >= 0 Then \'如果找到的话
            .Position = r \'定位到找到的行.
        End If
     End With
--  作者：q2649295605
--  发布时间：2015/6/5 14:42:00
--  非常感谢
谢谢你！你是FOXtable的工作人员吗？