主题：请教重复提示代码

在表A 第二列、第三列、第四列为字符型，

如在表A第三行 ：  第二列＝“中国” ，第三列＝“广东”，第四列＝“佛山”

表A第四行也是：   第二列＝“中国” ，第三列＝“广东”，第四列＝“佛山”

当在第四列输入佛山时，提示“有重复”，这个代码如何写。特请教老师，谢谢！

看这里的示例四：

 

http://help.foxtable.com/topics/0624.htm

 

谢谢！我来试试

试做了很久，还是做不出来，还得请老师帮忙。谢谢！

请做好这个表格，然后写上你的代码，我帮你看看你错在何处。

请老师看看错在那里

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目14.table

If e.DataCol.Name =  "第四列"   Then
    Dim dr As DataRow
 '  *** dr = e.DataTable.Find(" 第二列 = '" & e.NewValue & "'and  第三列 = '" & e.NewValue & "' and 第四列 = '" & e.NewValue & "'  " )
    dr = e.DataTable.Find("第二列 = '" & e.DataRow("第二列") & "'and  第三列 = '" & e.DataRow("第三列") & "' and 第四列 = '" & e.NewValue & "'" )
    If dr IsNot Nothing  Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If

 

比较一下两个 dr ＝ ···

 

注意，e.NewValue 表示你所编辑的列的新的值，不是每一列的值都是e.newValue的。

 

正确的代码为：

 

If e.DataCol.Name =  "第四列"   Then
    Dim dr As DataRow
    dr = e.DataTable.Find("第二列 = '" & e.DataRow("第二列") & "'and  第三列 = '" & e.DataRow("第三列") & "' and 第四列 = '" & e.NewValue & "'  " )
    If dr IsNot Nothing  Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If

谢谢二位老师！！！