在说明文档--自定义用户与权限管理之二这节里面有一个示例文件,1、这个文件的外部数据源不存在。为什么还能正常用?关于这里面外部数据源用在哪里怎么用?我把他所有代码复制过来重新做一个怎么每次都提示创建外部数据源错误?(已解决)新问题:2、在未登录的情况下怎么往外部数据源里面增加数据?
Dim UserName As String = e.Form.Controls("TextBox5").Value
Dim UserGroup As String = e.Form.Controls("TextBox1").Value
Dim Userxm As String = e.Form.Controls("TextBox2").Value
Dim PassWord As String = e.Form.Controls("TextBox4").Value
Dim dr As DataRow
If UserName = "" OrElse UserGroup = "" Then
Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If _UserTable.SQLFind("[Name] = '" & UserName & "'") IsNot Nothing Then
Messagebox.show("增加用户失败,已经能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = _UserTable.AddNew()
dr("Name") = UserName
dr("Group") = UserGroup
dr("xm") = Userxm
dr("Password") = PassWord
_UserTable.Save()
e.Form.Close()
下面这节不需要,如何把上面dr行的内容保存进外部数据源user?
If Forms("用户管理").Opened Then
With Forms("用户管理").Controls("ListBox1")
.Items.Add(UserName)
.SelectedIndex = .Items.Count -1
End With
End If
[此贴子已经被作者于2019/3/14 15:07:17编辑过]