主题：无法发表新贴问题

Dim cmd As New S QLCommand
cmd.C
cmd.CommandText = "SELECT * F rom {Users} Where [Name]"
_UserTable = cmd.ExecuteReader(True)

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
'后续初始化代码

If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If

Forms("主窗口").Open()

Basemainform.Text = "欢迎使用MIS信息管理系统"