- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自定义用户管理中无法加载数据，研究两天了，还找不到头绪 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19763)
-- 发布时间：2012/5/21 0:27:00
-- 自定义用户管理中无法加载数据，研究两天了，还找不到头绪
自定义用户管理中无法加载数据，研究两天了，还找不到头绪，请狐友们帮忙解决
按自定义用户管理中的例子，把代码复制过来，发现用户名（UserName）下拉列表框中无法正常加载数据，如图：
[upload=png,1.png]UploadFile/2012-5/20125210222364218.png
但是，我把代码稍为修改一下，在命令窗口中却加载正常。
" target="_blank">点击浏览该文件
此主题相关图片如下：2.png
此主题相关图片如下：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 |
-- 发布时间：2012/5/21 8:37:00
--
看看这一节内容最后面的“总结”：
http://www.foxtable.com/help/topics/2048.htm
-- 发布时间：2012/5/21 9:58:00
--
感谢狐爸这么早的回复。
我再认真看了总结那一段，并且在项目事件AfterOpenProject中加入代码：
Forms("用户登录").Open()
还是没有找出问题所在。
我碰到的问题是 “自定义” 窗口初始化的时候，加载不上用户名，而且也没有提示。但在命令窗口中测试却能加载。
再上传一下项目文件，狐爸能否再帮忙看看问题中哪里。
谢谢
-- 发布时间：2012/5/21 10:20:00
--
奇怪我回复的贴子呢? 你那个我测试可以找到用户名呀?
-- 发布时间：2012/5/21 10:38:00
--
我也很奇怪，把代码，前后逻辑都检查了很多遍。并在命令窗口中测试成功。
可回到“用户登陆”窗口却不行。
我打开之后的登陆窗口，用户名那里是空的。如下图
此主题相关图片如下：1.jpg
用MessageBox.show() 语句去检查，也没有反应。
不知道错误在哪里。
-- 发布时间：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
其余没有任何代码。
这段代码显然是生效了的，因为打开窗口后，用户名正常列出来了。
-- 发布时间：2012/5/21 11:15:00
--
碰到怪事了。我上传前的项目是无法加载用户名的（现在也不能加载）如图：
此主题相关图片如下：1.jpg
可我上传的项目文件下载回来却可以加载用户名了。
此主题相关图片如下：2.jpg
这是怎么回事呢。
-- 发布时间：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
-- 发布时间：2012/5/21 11:57:00
--
问题解决了，谢谢狐爸。
-- 发布时间：2012/5/21 12:48:00
--
我看来看去都有用户的.