主题：请老师指导错误何在？

下代码运行时出错：无法将类型为“System.Boolean”的对象强制转换为类型“Foxtable.Row”。

请问，如何修改？谢谢

Dim dr  As Row = Tables("购置申请管理").Current

If dr.Isnull("购置申请编号")=False Then

    vars("IDH")=dr("购置申请编号")

    '  MessageBox.show(vars("IDH"))

    Dim fdr As Row =Tables("设备采购管理").Filter="购置申请编号 = '" & vars("IDH") & "'"

    

    If fdr Is Nothing

        fdr = Tables("设备采购管理").AddNew

        fdr("购置申请编号") = dr("购置申请编号")

    End If

Else

    

    MessageBox.show("购置申请编号为空")

End If

你应该用FIND http://www.foxtable.com/help/topics/0396.htm