一段在命令窗口执行正常的代码,在窗口的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编辑过]