Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义用户管理中无法加载数据，研究两天了，还找不到头绪


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

主题：自定义用户管理中无法加载数据，研究两天了，还找不到头绪
帅哥哟，离线，有人找我吗？
xiaodao369
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：162 威望：0 精华：0 注册：2012/4/25 0:23:00 		自定义用户管理中无法加载数据，研究两天了，还找不到头绪  发帖心情 Post By：2012/5/21 0:27:00 [只看该作者]

自定义用户管理中无法加载数据，研究两天了，还找不到头绪，请狐友们帮忙解决

按自定义用户管理中的例子，把代码复制过来，发现用户名（UserName）下拉列表框中无法正常加载数据，如图：

" target="_blank">点击浏览该文件
此主题相关图片如下：2.png
按此在新窗口浏览图片

代码如下：
Dim cmd As New SQLCommand
Dim dt As DataTable

Forms("用户登陆").show(true)
Dim cmb As WinForm.ComboBox = Forms("用户登陆").Controls("UserName")
Dim tx As String


cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()
tx =cmd.ExecuteScalar

If dt IsNot Nothing Then
    For Each dr As DataRow In dt.Datarows
       cmb.Items.Add(dr("Name"))
    Next
    cmb.SelectedIndex = 0
End If


实例的项目的文件见附件。
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看看这一节内容最后面的“总结”：

http://www.foxtable.com/help/topics/2048.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
xiaodao369
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：162 威望：0 精华：0 注册：2012/4/25 0:23:00 		  发帖心情 Post By：2012/5/21 9:58:00 [只看该作者]

感谢狐爸这么早的回复。

我再认真看了总结那一段，并且在项目事件AfterOpenProject中加入代码：

Forms("用户登录").Open()

还是没有找出问题所在。

我碰到的问题是 “自定义” 窗口初始化的时候，加载不上用户名，而且也没有提示。但在命令窗口中测试却能加载。

再上传一下项目文件，狐爸能否再帮忙看看问题中哪里。

谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/5/21 10:20:00 [只看该作者]

奇怪我回复的贴子呢?  你那个我测试可以找到用户名呀?

 回到顶部
帅哥哟，离线，有人找我吗？
xiaodao369
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：162 威望：0 精华：0 注册：2012/4/25 0:23:00 		  发帖心情 Post By：2012/5/21 10:38:00 [只看该作者]

我也很奇怪，把代码，前后逻辑都检查了很多遍。并在命令窗口中测试成功。
可回到“用户登陆”窗口却不行。

我打开之后的登陆窗口，用户名那里是空的。如下图


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


用MessageBox.show() 语句去检查，也没有反应。

不知道错误在哪里。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你的问题到底是什么，你传了两次文件，两个文件都只在窗口的AfterLoad设置了一下代码：

 

 

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

cmd.Connection Name = "User"

cmd.CommandText = "SELECT DISTINCT Name From {Users}"

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

 

其余没有任何代码。

 

这段代码显然是生效了的，因为打开窗口后，用户名正常列出来了。
 回到顶部
帅哥哟，离线，有人找我吗？
xiaodao369
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：162 威望：0 精华：0 注册：2012/4/25 0:23:00 		  发帖心情 Post By：2012/5/21 11:15:00 [只看该作者]

碰到怪事了。我上传前的项目是无法加载用户名的（现在也不能加载）如图：

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


可我上传的项目文件下载回来却可以加载用户名了。

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

这是怎么回事呢。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、删除catch

 

2、

 

下载 .net FrameWork 2.0 Sp2

从Foxtable网站下载：

http://www.foxtable.com/download/net20sp2.exe

从微软网站下载：

http://download.microsoft.com/download/c/6/e/c6e88215-0178-4c6c-b5f3-158ff77b1f38/NetFx20SP2_x86.exe

　
 回到顶部
帅哥哟，离线，有人找我吗？
xiaodao369
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：162 威望：0 精华：0 注册：2012/4/25 0:23:00 		  发帖心情 Post By：2012/5/21 11:57:00 [只看该作者]

问题解决了，谢谢狐爸。

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2012/5/21 12:48:00 [只看该作者]

我看来看去都有用户的.

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询