老师，更换用户窗口，打开时，报错，找不到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编辑过]
加好友 
发短信
Post By：2016/7/6 9:57:00 [只看该作者]
