请教关于菜单代码的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我为了实现在项目登记表中登记项目时，通过快捷菜单向另外一个表（项目名称）添加当前项目名称，但同时要判定项目名称表中是否存在该项目名称。但这个代码始终通不过，请教该如何修改？

Dim pr As Row = tables("项目登记表").current

If pr.IsNull("项目名称") Then

Dim dr As Row = Table("项目名称").find("[项目名称]='" & pr("项目名称") & "' ")

If dr Is Nothing Then

Dim sr As Row =Tables("项目名称").AddNew()

sr("项目名称") = pr("项目名称")

Else

MessageBox.Show("此项目已经存在!")

End If

主题：请教关于菜单代码的问题