合成用户信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师请问用系统增加的用户表中备注列字符如下列，请问我想做个批量增加用户，请问这该如何来合成操作。

Group内江市东兴区胜利镇双凼小学PassWordEmIR5WBjrFGjO7SHZdBWwQ==Type2Role业务主管

再追加个问题：由于用户名用姓名，分组用学校名称，角色用班主任，但一个学校有多个班主任，请问有什么办法来区分不同的班主任呢如2014级班班主任，2014级2班班主任

回1楼

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89166&skin=0

回2楼

在分组中或者角色中定义，如：学校名称|班级名称

或者使用扩展属性

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("班级"))

End If

老师，上面代码想实现批量增加班主任用户帐号，因为用的学校名称分组，想在增加前查同一个学校同一班级是否有班主任帐号，如有则用新的班主任替换用户名，如无则增加记录，上面红色代码写起不对呢，请教下如何来写，谢谢

r1 = DataTables("users").Find(("config like '%" & user.group & "%' and config like '%" & r("班级") & "%'")

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

If DataTables("users").HasChanges

DataTables("users").save()

End If

Else

messagebox.show("请注意,你没有勾选要设置帐号的班主任记录","提示",MessageBoxButtons.OK)

End If

此主题相关图片如下：qq图片20170329172918.png

老师请问按上面的思路已做成了班主任帐号统一增加，现在想用上表一次性增加教师的帐号，但有个问题一个教师有一个学校可有多个班，请问如何用现有任课课表来为教师增加帐号，不重复,并且最好能识别出他上有哪几个班，哪几科，应用的时候好识别应用，谢谢

循环任课表的每一行、每一列，取出老师的名字，然后查找和新增不就好了？

哪个班、哪个科不知道你的逻辑是什么。

主题：合成用户信息