主题：禁止重复和新增

   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

 

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

im 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
  else
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老师，有重复的 提示：是否新增 窗口也弹出来了

不会啊. 你条件判断了  If dr1 IsNot Nothing Then   Else里面肯定是 没有才会弹出的

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

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

上传例子

因为红色：

 

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
Else
    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("学生姓名") = e.Form.Controls("学生姓名").text
        dr("班级") = e.Form.Controls("班级").text
    Else
    End If
End If

不好意思，一时疏忽