以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  禁止重复和新增  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54352)
--  作者：Lc
--  发布时间：2014/7/26 10:32:00
--  禁止重复和新增

   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("发票号") = e.Form.Controls("发票号").text
    dr("学生姓名") = e.Form.Controls("学生姓名").text
    dr("缴费项目") = "餐费"
    dr("收款人") = User.Name
    dr("编辑时间") = Format(Date.Now,"yyyy-MM-dd HH:mm")
  Else
End If

 

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

[此贴子已经被作者于2014-7-26 10:36:36编辑过]
--  作者：Bin
--  发布时间：2014/7/26 10:35:00
--  
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("发票号") = e.Form.Controls("发票号").text
    dr("学生姓名") = e.Form.Controls("学生姓名").text
    dr("缴费项目") = "餐费"
    dr("收款人") = User.Name
    dr("编辑时间") = Format(Date.Now,"yyyy-MM-dd HH:mm")
  Else
End If
End If
--  作者：Lc
--  发布时间：2014/7/26 10:44:00
--  
Bin老师，有重复的 提示：是否新增 窗口也弹出来了
--  作者：Bin
--  发布时间：2014/7/26 11:03:00
--  
不会啊. 你条件判断了  If dr1 IsNot Nothing Then   Else里面肯定是 没有才会弹出的
--  作者：Lc
--  发布时间：2014/7/26 14:57:00
--  禁止重复和新增
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

上传例子
[此贴子已经被作者于2014-7-26 15:12:19编辑过]
--  作者：狐狸爸爸
--  发布时间：2014/7/26 16:17:00
--  

因为红色：

 

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
--  作者：Lc
--  发布时间：2014/7/26 17:15:00
--  
不好意思，一时疏忽