主题：为何不是覆盖

Dim tb As Table = Tables("任课情况_table1")
Dim rs As List(of Row) = Tables("任课情况_table1").GetCheckedRows
Dim mm As String
If rs.Count > 0 Then '如果存在符合条件的行
    Dim t3 As String = e.Form.Controls("textbox3").text
    If t3 > ""
        mm = t3
    Else
        mm = "888"
    End If
    messagebox.show("你为班主任统一设置的初始密码为:  " & t3 & "  请记住并要求班主任自已修改","提示",MessageBoxButtons.OK)
    Dim r1 As DataRow
    For Each r As Row In tb.getcheckedrows
        If r("班主任") > ""
            r1 = DataTables("用户").sqlFind("group = '" & r("学校名称").trim() & "'' And 班级 = '" & r("班级").trim() & "'")
            If r1 Is Nothing Then r1 = DataTables("用户").AddNew()
            r1("name") = r("班主任")
            r1("password")= mm
            r1("group") = r("学校名称").trim()
            r1("角色") = "班主任"
            r1("姓名")= r("班主任")
            r1("是否可用") = True
            r1("班级") = r("班级").trim()
        End If
        r.Checked = False
    Next
    If DataTables("用户").HasChanges
        DataTables("用户").save()
    End If
Else
    messagebox.show("请注意,你没有勾选要设置帐号的班主任记录","提示",MessageBoxButtons.OK)
End If

老师，上面是想开到符合条件的记录就履盖，没找到新增，但为何会增加重复记录呢，没看出问题呢

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

点击浏览该文件:教务管理.rar

帐号511011197405034877,666,用个任课情况窗口里的班主任帐号按键，不能覆盖，请老师帮看下，谢谢

用511011197405034877，666

第2条是没有问题的，一是学校名称，班级确认不为空，我就是确定很奇怪，没想通是什么原因，请老师再帮研究一下