以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  更改用户窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87222)
--  作者：douglas738888
--  发布时间：2016/7/6 9:57:00
--  更改用户窗口问题
老师，更换用户窗口，打开时，报错，找不到DEPT列 ，UserName UserGroup UserDept的控件不能使用    以下是AFTERLOAD的代码
Dim UserName As String
Dim UserGroup As String
Dim UserDept As String        
Dim PassWord As String
Dim cmd As New SQL Command
Dim dt As DataTable
If Forms("用户管理").Opened Then 
    UserName = Forms("用户管理").Controls("ListBox1").SelectedItem
Else 
    UserName = _UserName \'_UserName为全局变量,用于保存当前用户名
    e.Form.Controls("UserName").Enabled = False
    e.Form.Controls("UserGroup").Enabled = False
    e.Form.Controls("UserDept").Enabled = False
End If
e.Form.Text = e.Form.Text & "-" & UserName
cmd.C
cmd.CommandText = "Select * F     rom {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader

If dt.DataRows.Count = 1 Then
    e.Form.Controls("UserName").Value = UserName
    e.Form.Controls("UserGroup").Value = dt.DataRows(0)("Group")
    e.Form.Controls("PassWord").Value = dt.DataRows(0)("PassWord")
    e.Form.Controls("UserDept").Value = dt.DataRows(0)("Dept")
Else
    MessageBox.Show("用户不存在或者已经被删除!","提示",MessageBoxButtons.OK)
    e.Form.Close()
End If


Dim cmd1 As New SQL  Command
Dim dt1 As DataTable
Dim lst1 As WinForm.ComboBox = e.Form.Controls("UserGroup")
cmd1.C
cmd1.CommandText = "SELECT DISTINCT Group F   rom {Users}"
dt1 = cmd1.ExecuteReader()
lst1 = e.Form.Controls("UserGroup")
lst1.ComboList= dt1.GetComboListString("Group")

Dim cmd2 As New SQLCommand
Dim dt2 As DataTable
Dim lst2 As WinForm.ComboBox = e.Form.Controls("UserDept")
cmd2.C
cmd2.CommandText = "SELECT DISTINCT Dept F   rom {Users}"
dt2 = cmd1.ExecuteReader()
lst2 = e.Form.Controls("UserDept")
lst2.ComboList= dt2.GetComboListString("Dept")
[此贴子已经被作者于2016/7/6 9:59:08编辑过]
--  作者：大红袍
--  发布时间：2016/7/6 10:01:00
--  
说找不到，那就是你 users 表根本就没有这一列 Dept
--  作者：douglas738888
--  发布时间：2016/7/6 10:04:00
--  
这个问题，我之前也查了，有这一列的，而且都有内容的   更改用户窗口的USERDEPT控件中也显示登录人的部门名称的，就是不能用

用户管理和增加用户都正常
[此贴子已经被作者于2016/7/6 10:06:51编辑过]
--  作者：大红袍
--  发布时间：2016/7/6 10:15:00
--  

 那代码没问题，请去检查窗口其他事件的代码。

 

 不行就上传实例。