- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我根据帮助中的“自定义用户与权限管理”这一章节，做一个自定义用户界面，结果，出现以下这样的错误提示？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19686)
-- 发布时间：2012/5/18 9:14:00
-- 我根据帮助中的“自定义用户与权限管理”这一章节，做一个自定义用户界面，结果，出现以下这样的错误提示？
我根据帮助中的“自定义用户与权限管理”这一章节，做一个自定义用户界面，结果，出现如下图这样的错误提示？
此主题相关图片如下：901.jpg
此主题相关图片如下：902.jpg
我的“用户管理”窗口的AfterLoad里的事件代码是这样的：
Dim cmd As New SQLCommandDim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {用户管理}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
，请问上述这个代码中哪里有问题，请各位狐友帮我看一下？？？
-- 发布时间：2012/5/18 9:15:00
--
人家说的是用户登录窗口的AfterLoad事件有错，不是用户管理，要看清楚点。
-- 发布时间：2012/5/18 10:06:00
--
我说错了 ，
我的“用户登陆”窗口的AfterLoad里的事件代码是这样的：
Dim cmd As New SQLCommandDim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {用户管理}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
，请问上述这个代码中哪里有问题，请各位狐友帮我看一下？？？
-- 发布时间：2012/5/18 10:16:00
--
没看出有问题，蒙一下：
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {用户管理}"
dt = cmd.ExecuteReader()
if dt isnot nothing then
For Each dr As DataRow In dt.Datarows
cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
end if
-- 发布时间：2012/5/18 10:34:00
--
恩 我重新做了一次，这个代码是对的