--
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
TableCaptionVisible = False
Forms("开始").open()
Dim schoolname As String = user.group
If User.Roles() = "业务主管"
Dim dr As DataRow = DataTables("学校信息").find("单位全称 = \'" & schoolname & "\'")
If dr Is Nothing Then
MessageBox.show("你好,你校基本信息还没注册好,请进入注册","提示")
dr = DataTables("学校信息").addnew()
dr("单位全称") = schoolname
MainTable = Tables("任课信息表")
Forms("教师信息").open()
End If
End If
End If