以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  User的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133932)
--  作者：douglas738888
--  发布时间：2019/4/23 17:30:00
--  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) 查看，是空值，其他两个都能正常显示出来。

[此贴子已经被作者于2019/4/23 17:33:29编辑过]
--  作者：douglas738888
--  发布时间：2019/4/23 17:55:00
--  

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

 

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