主题：User的问题

请教老师，下面代码，其中_UserDept无法在增加行时被调用，是空值，其他两个都正常能调用，不知是什么原因，系统设置的是自定义登录窗口

 

全局代码：

Public _UserName As String
Public _UserDept As String
Public _UserGroup As String

 

表DataRowAdding：

e.DataRow("登记人员") = _UserName
e.DataRow("登记部室") = _UserDept

e.DataRow("登记分组") = _UserGroup

 

用 Dim st as string = _UserDept   messagebox.show(st) 查看，是空值，其他两个都能正常显示出来。

问题找到了，要在登录窗口的登录按钮中写入代码

 

If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroupp = dr("Group")   
    _UserDept = dr("Dept")  

    e.Form.Close
Else
    Messagebox.show("用户名称或密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If