| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何实现 操作表单实现用户,用户组,的添加修改. (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157894) |
| -- 作者：夜点蚊香 -- 发布时间：2020/11/2 7:51:00 -- 如何实现 操作表单实现用户,用户组,的添加修改. 如何实现 操作表单实现用户,用户组,的添加修改. |
| -- 作者：有点蓝 -- 发布时间：2020/11/2 8:30:00 -- 如果是内置的用户管理，只能在菜单中添加修改：http://www.foxtable.com/webhelp/topics/0607.htm 如果是自定义用户，参考：http://www.foxtable.com/webhelp/topics/2048.htm
|
| -- 作者：夜点蚊香 -- 发布时间：2020/11/2 23:01:00 -- 新用户数据库连接以后,会不会影响开发者账号登陆或者说影不影响,继续开发权限. [此贴子已经被作者于2020/11/2 23:00:52编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/2 23:12:00 -- 没有影响 |
| -- 作者：夜点蚊香 -- 发布时间：2020/11/4 13:41:00 -- 用table1控件怎么修改代码,求助 下面这个代码用在修改界面的确定按钮 用户界面我使用的是table1控件,点确定的是,显示修改用户失败. Dim UserName As String = e.Form.Controls("姓名").Value Dim UserGroup As String = e.Form.Controls("用户组").Value Dim PassWord As String = e.Form.Controls("密码").Value Dim OldUserName As String Dim Parts() As String = e.Form.Text.Split("-"c) OldUserName = Parts(Parts.Length -1) If UserName = "" OrElse UserGroup = "" Then Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If Dim dr As DataRow = _UserTable.SQLFind("[Name]= \'" & OldUserName & "\'") If dr IsNot Nothing Then dr("Name") = UserName dr("Group") = UserGroup dr("Password") = PassWord dr.Save() If Forms("学员信息表窗口").Opened Then With Forms("学员信息表窗口").Controls("ListBox1") .Items(.SelectedIndex) = UserName End With End If e.Form.Close Else Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If 这条语句是什么意思,看不明白.感觉是这个语句出来问题. Dim Parts() As String = e.Form.Text.Split("-"c) |
| -- 作者：有点蓝 -- 发布时间：2020/11/4 13:49:00 -- 请上传实例说明。 这句代码没有问题。C字符可以去掉，没有影响 Dim Parts() As String = e.Form.Text.Split("-")
|
| -- 作者：夜点蚊香 -- 发布时间：2020/11/4 13:56:00 -- 代码改了一下 报错 Dim UserName As String = e.Form.Controls("姓名").value Dim UserGroup As String = e.Form.Controls("用户组").Value Dim PassWord As String = e.Form.Controls("密码").Value Dim OldUserName As String OldUserName = e.Form.Controls("姓名").value If UserName = "" OrElse UserGroup = "" Then Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If Dim dr As DataRow = _UserTable.SQLFind("[Name]= \'" & OldUserName & "\'") If dr IsNot Nothing Then dr("Name") = UserName dr("Group") = UserGroup dr("Password") = PassWord dr.Save() If Forms("学员信息表窗口").Opened Then With Forms("学员信息表窗口").Controls("ListBox1") .Items(.SelectedIndex) = UserName End With End If e.Form.Close Else Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If If Tables("学员管理_学员信息表").Current IsNot Nothing Then Tables("学员管理_学员信息表").Current.Save() End If 报错内容如下 InvalidArgument=“-1”的值对于“index”无效。 参数名: index .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2020.5.29.8 错误所在事件：窗口,学员信息表修改窗口,Button1,Click 详细错误信息： InvalidArgument=“-1”的值对于“index”无效。 参数名: index [此贴子已经被作者于2020/11/4 14:03:17编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/4 14:01:00 -- 请上传实例说明。 |
| -- 作者：夜点蚊香 -- 发布时间：2020/11/4 14:15:00 -- 搞定了,搞定了,少删一段代码 搞定了,搞定了,少删一段代码 textbox控件删了,相关代码没有删掉.搞定了.
[此贴子已经被作者于2020/11/4 14:21:37编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/11/4 14:26:00 -- 实例就是项目文件，把您做的项目文件发上来测试。 “更改用户”按钮应该是没有做判断，比如帮助的代码为： If e.Form.Controls("ListBox1").SelectedIndex >=0 Then |