Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义用户保存时报错


  共有12041人关注过本帖树形打印复制链接

主题:[求助]自定义用户保存时报错

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/8 19:16:00 [显示全部帖子]

Users既然是内部表,就用AddNew来增加行:

 

Dim UserName As String = e.Form.Controls("UserName").Value
Dim UserGroup As String  = e.Form.Controls("UserGroup").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim cmd As New SQLCommand
'cmd.C
If UserName = "" OrElse UserGroup = "" Then
    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Dim dr As DataRow = DataTables("Users").AddNew
dr("Name")= UserName
dr("Group") = UserGroup
dr("Password") = Password
dr.Save()
With Forms("用户管理").Controls("ListBox1")
    .Items.Add(UserName)
    .SelectedIndex = .Items.Count -1
End With


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/8 19:24:00 [显示全部帖子]

呵呵,这是自定义用户管理,一开是就应该用外部数据表,否则没有任何意义的。

 


 回到顶部