- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 合成用户信息 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98375)
-- 发布时间：2017/3/28 21:06:00
-- 合成用户信息
老师请问用系统增加的用户表中备注列字符如下列，请问我想做个批量增加用户，请问这该如何来合成操作。
-- 发布时间：2017/3/28 21:11:00
--
再追加个问题：由于用户名用姓名，分组用学校名称，角色用班主任，但一个学校有多个班主任，请问有什么办法来区分不同的班主任呢如2014级班班主任，2014级2班班主任
-- 发布时间：2017/3/28 21:39:00
--
回1楼
回2楼
在分组中或者角色中定义，如：学校名称|班级名称
或者使用扩展属性
-- 发布时间：2017/3/29 14:44:00
--
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
Dim r1 As DataRow
r1 = DataTables("users").Find(("config").Contains(user.group & 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("班级"))
Next
End If
老师，上面代码想实现批量增加班主任用户帐号，因为用的学校名称分组，想在增加前查同一个学校同一班级是否有班主任帐号，如有则用新的班主任替换用户名，如无则增加记录，上面红色代码写起不对呢，请教下如何来写，谢谢
-- 发布时间：2017/3/29 15:39:00
--
r1 = DataTables("users").Find(("config like \'%" & user.group & "%\' and config like \'%" & r("班级") & "%\'")
-- 发布时间：2017/3/29 17:35:00
--
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
老师请问按上面的思路已做成了班主任帐号统一增加，现在想用上表一次性增加教师的帐号，但有个问题一个教师有一个学校可有多个班，请问如何用现有任课课表来为教师增加帐号，不重复,并且最好能识别出他上有哪几个班，哪几科，应用的时候好识别应用，谢谢
-- 发布时间：2017/3/29 17:45:00
--
循环任课表的每一行、每一列，取出老师的名字，然后查找和新增不就好了？
哪个班、哪个科不知道你的逻辑是什么。