AfterOpenProject改一下,如果还有问题,建议把项目文件发上来测试
If Syscmd.Project.Update(False, True) = False Then
Dim cmd As New SQLCommand
cmd.Connecti
cmd.CommandText = "SELECT * From {Users} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
lianwang = DataTables("设置").DataRows(0)("服务器地址")
'从类别项目表提取类别列的内容, 作为公司流水表类别列的列表项目
Tables("公司流水").Cols("类别").Combolist = DataTables("类别项目").GetComboListString("类别")
Forms("主窗口").Open()
MainTable = Tables("CNC")
If User.Type <> UserTypeEnum.Developer Then
TableCaptionVisible = False
End If
DataTables("员工资料").DataCols("入职日期").RaiseDataColChanged()
End if