提示——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

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