禁止重复和新增 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

End If

主题：禁止重复和新增