主题：权限管理

1、贴出你afterOpenProject代码

2、贴出你窗口afterLoad代码

试试改成

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
'cmd.ConnectionName = "User"
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()

msgbox(dt.datarows.count)
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next

msgbox(123)
'cmb.SelectedIndex = 0

改成

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.ConnectionName = "你自己的数据源名称"
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()

msgbox(dt.datarows.count)
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next

msgbox(123)
'cmb.SelectedIndex = 0

如果你要用自己的登陆窗口，那就不需要在用户管理那里设置【用户数据表】那些了。

现在你测试的时候，出现什么问题？