专家坐堂-求助新建按钮命令之前条件判断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=59744)

--  作者：卟离卟弃
--  发布时间：2014/11/10 11:51:00
--  求助新建按钮命令之前条件判断

此主题相关图片如下：qq截图20141110114242.png

各位前辈

我想按新建行按钮的时候,查询表中,是否存在这一个记录编号
如果存在,新建行命令无效,

这个用什么代码实现?

--  作者：Bin
--  发布时间：2014/11/10 11:54:00
--
利用FIND查找一下

http://www.foxtable.com/help/topics/0396.htm

--  作者：卟离卟弃
--  发布时间：2014/11/10 12:42:00
--
多谢,ok

--  作者：卟离卟弃
--  发布时间：2014/11/10 12:46:00
--

If e.Form.Controls("记录编号").Value = Nothing Then
MsgBox("请填写完整数据!!",64,"提示")
Else
Dim a1 As String = e.Form.Controls("记录编号").Value
Dim dr As DataRow
dr = DataTables("表A").Find("记录编号 = \'" & a1 &"\' ") \'找出编号为03的产品
If dr IsNot Nothing Then \'如果找到的话
Else
Dim r1 As Row = Tables("表A").addnew()
r1("记录编号")=e.Form.controls("记录编号").text
End If
End If

查找表中没有问题,
如何可找SQL 数据库中是否存在此编号?

因为很多时候,一张表格,是多人在操作.都在生成编号

--  作者：卟离卟弃
--  发布时间：2014/11/10 12:53:00
--

If e.Form.Controls("记录编号").Value = Nothing Then
MsgBox("请填写完整数据!!",64,"提示")
Else
Dim a1 As String = e.Form.Controls("记录编号").Value
Dim dr As DataRow
dr = DataTables("表A").SQLFind("记录编号 = \'" & a1 &"\' ") \'找出编号为03的产品
If dr IsNot Nothing Then \'如果找到的话
Else
Dim r1 As Row = Tables("表A").addnew()
r1("记录编号")=e.Form.controls("记录编号").text
End If
End If

是这样?

--  作者：有点甜
--  发布时间：2014/11/10 14:09:00
--

1、是的，用sqlFind

2、新增一行，填入记录编号以后，就必须把那样save保存一下了