主题：禁止重复和新增

   Dim dr1 As DataRow = DataTables("缴费信息").Find("学期='2014年' and 学生姓名='" & e.Form.Controls("学生姓名").text & "'and 缴费项目 = '餐费'")
   If dr1 IsNot Nothing Then
   MessageBox.Show("      " & e.Form.Controls("学生姓名").text & "   已缴餐费" )
   e.Form.Controls("学生姓名").Value = Nothing
End If
Dim Result As DialogResult
Result = messagebox.show("是否增加: " & e.Form.Controls("学生姓名").text & "  餐费","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
  If Result = DialogResult.Yes Then    
   Dim dr As DataRow = DataTables("缴费信息").AddNew()
   dr("fa piao号") = e.Form.Controls("fa piao号").text
    dr("学生姓名") = e.Form.Controls("学生姓名").text
    dr("缴费项目") = "餐费"
    dr("收款人") = User.Name
    dr("编辑时间") = Format(Date.Now,"yyyy-MM-dd HH:mm")
  Else
End If

 

如果有重复 是否新增 就不弹出，禁止新增。如果没有重复 是否新增 弹出，点击 是 新增。求代码？谢谢

Bin老师，有重复的 提示：是否新增 窗口也弹出来了

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

点击浏览该文件:管理项目1.zip

上传例子

不好意思，一时疏忽