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

提示——identify不能为空

 

在窗口设计的增加用户模块

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:练手.foxdb

帮我看看

狐狸爸爸在哪里，谁来拯救我……

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

使用ADDNEW的话，那么以后重定向为外部数据源的时候是不是所有的相关代码都需要修改？

 忘记说谢谢了

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