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 = MD5Encrypt(e.Form.Controls("textbox3").text)
Else
mm = MD5Encrypt("888")
End If
messagebox.show("你为班主任统一设置的初始密码为: " & t3 & " 请记住并要求班主任自已修改","提示",MessageBoxButtons.OK)
For Each r As Row In tb.getcheckedrows
If r("班主任") > ""
Dim r1 As DataRow
r1 = DataTables("users").Find("config like '%" & user.group & "%' and config like '%" & r("班级") & "%'")
If r1 Is Nothing Then
r1 = DataTables("users").AddNew()
End If
r1("name") = r("班主任")
r1("type") = "2"
r1("config") ="Group" & chr(11) & user.group & chr(11) & "PassWord" & chr(11) & mm & chr(11) & "Type" & chr(11) & "2" & chr(11) & "Role" & chr(11) & "班主任." & TRIM(r("班级"))
End If
r.Checked = False
Next
If DataTables("users").HasChanges
DataTables("users").save()
End If
Else
messagebox.show("请注意,你没有勾选要设置帐号的班主任记录","提示",MessageBoxButtons.OK)
End If
此主题相关图片如下:qq图片20170329172918.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-3/201732917311857857.png)
老师请问按上面的思路已做成了班主任帐号统一增加,现在想用上表一次性增加教师的帐号,但有个问题一个教师有一个学校可有多个班,请问如何用现有任课课表来为教师增加帐号,不重复,并且最好能识别出他上有哪几个班,哪几科,应用的时候好识别应用,谢谢