Foxtable(狐表)用户栏目专家坐堂 → 我根据帮助中的“自定义用户与权限管理”这一章节,做一个自定义用户界面,结果,出现以下这样的错误提示?


  共有9043人关注过本帖树形打印复制链接

主题:我根据帮助中的“自定义用户与权限管理”这一章节,做一个自定义用户界面,结果,出现以下这样的错误提示?

帅哥哟,离线,有人找我吗?
akzzwj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
我根据帮助中的“自定义用户与权限管理”这一章节,做一个自定义用户界面,结果,出现以下这样的错误提示?  发帖心情 Post By:2012/5/18 9:14:00 [只看该作者]

我根据帮助中的“自定义用户与权限管理”这一章节,做一个自定义用户界面,结果,出现如下图这样的错误提示?

 


图片点击可在新窗口打开查看此主题相关图片如下:901.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:902.jpg
图片点击可在新窗口打开查看

我的“用户管理”窗口的AfterLoad里的事件代码是这样的:

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()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

,请问上述这个代码中哪里有问题,请各位狐友帮我看一下???


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/18 9:15:00 [只看该作者]

人家说的是用户登录窗口的AfterLoad事件有错,不是用户管理,要看清楚点。

 回到顶部
帅哥哟,离线,有人找我吗?
akzzwj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
  发帖心情 Post By:2012/5/18 10:06:00 [只看该作者]

我说错了 ,

我的“用户登陆”窗口的AfterLoad里的事件代码是这样的:

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()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

,请问上述这个代码中哪里有问题,请各位狐友帮我看一下???


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
akzzwj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
  发帖心情 Post By:2012/5/18 10:34:00 [只看该作者]

恩 我重新做了一次,这个代码是对的

 


 回到顶部