[求助]不知是操作系统的问题还是狐表的BUG?（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一段在命令窗口执行正常的代码,在窗口的AfterLoad事件中却不能正常执行，

现在只能放在项目属性的MainTableChanged事件中运行，不知是否妥当。

执行异常的是红色代码的部分，在窗口的AfterLoad事件中运行，不能根据用户名填充ComboBox1，以及不能根据角色解锁ComboBox1（可以锁定）。不知是操作系统的问题还是狐表的BUG,请各位老师指教。谢谢！！

Dim cmb As New SQLCommand

cmb.C '外部数据源

cmb.CommandText = "Select GetDate()" '服务器时间

Dim sj As Date = cmb.ExecuteScalar()

Dim rq As Date = sj.Date

Dim rq1 As WinForm.TextBox = Forms("工具录入").Controls("TextBox19")

rq1.Value = Format(rq,"yyyy-MM-dd")

Dim gjmc As WinForm.ComboBox = Forms("工具录入").Controls("ComboBox2")

gjmc.ComboList = DataTables("工具目录").GetComboListString("工具名称")

If _UserGroup <> "生产" And _UserGroup <> "开发" Then

Forms("工具录入").Controls("ComboBox1").Enabled = False

'填充单位

Dim pr2 As DataRow

pr2 = DataTables("用户表").Find("姓名 = '" & _UserName & "'")

Dim a2 As String

If pr2 IsNot Nothing Then

a2 = pr2("单位")

Else

a2 = Nothing

End If

Forms("工具录入").Controls("ComboBox1").Text = a2

Else

Forms("工具录入").Controls("ComboBox1").Enabled = True

Dim sydw As WinForm.ComboBox = Forms("工具录入").Controls("ComboBox1")

sydw.ComboList = DataTables("部门表").GetComboListString("部门1")

End If

[此贴子已经被作者于2014-4-16 11:41:53编辑过]

谢谢甜老师的回复，如果是_UserGroup字段有空格的话，在命令窗口也不应该运行正常呀？百思不得其解。

因为是SQL Server数据库和自定义登录，否则应该做一个案例上传验证一下。再次谢谢甜老师。

谢谢甜老师的指教，上截图。

此主题相关图片如下：开发2.png

谢谢blackzhu老师的回复，应该从那几个方面去检查，请老师指教，谢谢！！

窗口的AfterLoad载人会有哪些因素影响？

[此贴子已经被作者于2014-4-16 8:03:56编辑过]

谢谢逛逛老师的指教，将窗口的自动打开取消后，项目重新启动可以实现所需的效果，但是用切换用户的方法，则不能达到所需效果，有没有用代码对窗口的AfterLoad事件重新加载的方法，请各位老师指教，谢谢。

回甜老师，是的，UserGroup 是权限。

切换用户时，对菜单进行了初始化，如何对窗口进行初始化，或者如何触发窗口的AfterLoad事件，请各位老师指教，谢谢！

找到解决的方法，在项目属性的CurrentTableChanged事件中加入如下代码，从其他表进入工具清单表时，就可以对工具录入窗口加载一次，实现所需的效果。

If CurrentTable.DataTable.Name = "工具清单" Then

Forms("工具录入").Show()

End If

If CurrentTable.DataTable.Name <> "工具清单" Then

Forms("工具录入").Close()

End If

再次感谢各位老师的指教！！

主题：[求助]不知是操作系统的问题还是狐表的BUG?（已解决）