以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能不能保存前提示重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76547)
--  作者：wusim
--  发布时间：2015/10/31 15:04:00
--  [求助]能不能保存前提示重复值
能不能在我按保存按钮时如果有两个列的值与其他行有重复就提示，没有就保存。用什么语句
--  作者：Hyphen
--  发布时间：2015/10/31 15:24:00
--  

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

 

Dim dr As DataRow
dr = DataTables("产品").Find("产品编号 = \'03\' and 产品名称 = \'苹果\' and [_Identify] <> 当前行的 _Identify" )
--  作者：wusim
--  发布时间：2015/10/31 15:44:00
--  
怎样将以下语句：
Select Case e.DataCol.name
    Case "型号","规格"
        Dim xh As String
        Dim gg As String
        If e.DataCol.Name= "型号" Then
            xh = e.NewValue
            gg = e.DataRow("规格")
        Else
            gg = e.NewValue
            xh = e.DataRow("型号")
        End If
        If xh > "" AndAlso gg  > "" Then 
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("型号 = \'" & xh & "\' And 规格 = \'" & gg & "\'") IsNot Nothing Then
                MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If
End Select

与保存按钮的语句结合一起DataTables("表Ａ").Save()　

是不是这样就可以在保存前有重复值的可以提示
[此贴子已经被作者于2015/10/31 15:44:56编辑过]
--  作者：Hyphen
--  发布时间：2015/10/31 16:15:00
--  

 If e.DataTable.Find("型号 = \'" & xh & "\' And 规格 = \'" & gg & "\' and [_Identify] <> " & e.DataRow("_Identify") IsNot Nothing Then