-- 作者:初心不改再说未来
-- 发布时间:2017/7/20 11:50:00
-- 无法将类型为的对象强制转换为类型
按照教程添加了用户登录窗口的AfterLoad事件代码:
Dim
cmb As WinForm.ComboBox =
e.Form.Controls("UserName") cmb.ComboList = _UserTable.SQLGetComboListString("Name")
又按照教程添加了项目AfterOpenProject代码: Dim cmd As New SQLCommand cmd.ConnectionName = "User" cmd.CommandText = "SELECT * Fr om {Users} Where [Name] Is Null" _UserTable = cmd.ExecuteReader(True)
Forms("用户登录").Open() If _UserName = "" Then Syscmd.Project.Exit() Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错 End If
但是现在报错:
错误所在事件:窗口,用户登录,AfterLoad 详细错误信息: 无法将类型为“Foxtable.WinForm.TextBox”的对象强制转换为类型“Foxtable.WinForm.ComboBox”。
[此贴子已经被作者于2017/7/20 12:10:24编辑过]
|