主题：禁止重复和新增

因为红色：

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