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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教关于菜单代码的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101381)

--  作者：cq66667372
--  发布时间：2017/5/29 20:08:00
--  请教关于菜单代码的问题
我为了实现在项目登记表中登记项目时，通过快捷菜单向另外一个表（项目名称）添加当前项目名称，但同时要判定项目名称表中是否存在该项目名称。但这个代码始终通不过，请教该如何修改？
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
End If

--  作者：有点蓝
--  发布时间：2017/5/31 9:22:00
--

Dim pr As Row = Tables("项目登记表").current
If pr IsNot Nothing AndAlso pr.IsNull("项目名称") = False 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
End If