- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 权限管理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130509)
-- 发布时间：2019/1/23 22:08:00
-- 权限管理
此主题相关图片如下：3.png
此主题相关图片如下：2.png
老师，您好，我在做自己的登录界面的时候，显示指定数据源名称错误，是什么意思呢？
此主题相关图片如下：1.png
在权限管理中，我应该怎么设置自己的账号呢？
-- 发布时间：2019/1/23 22:11:00
--
1、贴出你afterOpenProject代码
2、贴出你窗口afterLoad代码
-- 发布时间：2019/1/23 22:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
-- 发布时间：2019/1/23 22:19:00
--
试试改成
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
-- 发布时间：2019/1/23 22:28:00
--
不对的，我也没在代码中找到错误信息中说的问题~
此主题相关图片如下：4.png
-- 发布时间：2019/1/23 22:40:00
--
改成
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
-- 发布时间：2019/1/23 22:52:00
--
此主题相关图片如下：6.png
老师，我点击应用窗口的时候会出来一个这样的小窗口。然后我的权限管理里面是这样设置的
此主题相关图片如下：5.png
-- 发布时间：2019/1/23 23:03:00
--
如果你要用自己的登陆窗口，那就不需要在用户管理那里设置【用户数据表】那些了。
-- 发布时间：2019/1/23 23:04:00
--
现在你测试的时候，出现什么问题？