以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 新建按钮命令之前条件判断  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59744)
--  作者：卟离卟弃
--  发布时间：2014/11/10 11:51:00
--  求助 新建按钮命令之前条件判断

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20141110114242.png
图片点击可在新窗口打开查看

各位前辈

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


这个用什么代码实现?
--  作者：Bin
--  发布时间：2014/11/10 11:54:00
--  
利用FIND查找一下 
--  作者：卟离卟弃
--  发布时间：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保存一下了