自定义用户管理中无法加载数据，研究两天了，还找不到头绪 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

此主题相关图片如下：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"))

cmb.SelectedIndex = 0

End If

实例的项目的文件见附件。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

感谢狐爸这么早的回复。

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

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

还是没有找出问题所在。

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

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

谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

我也很奇怪，把代码，前后逻辑都检查了很多遍。并在命令窗口中测试成功。

可回到“用户登陆”窗口却不行。

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

此主题相关图片如下：1.jpg

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

不知道错误在哪里。

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

此主题相关图片如下：1.jpg

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

此主题相关图片如下：2.jpg

这是怎么回事呢。

问题解决了，谢谢狐爸。

主题：自定义用户管理中无法加载数据，研究两天了，还找不到头绪