Dim file As String = ProjectFile If file.EndsWith(".Table") = False AndAlso file.EndsWith(".foxdb") = False Then Return '已经发布后的程序不是 这2个后缀名,可以退出 If User.Type <> UserTypeEnum.Administrator Then Return '自定义 不是开发者,退出 'If User.Type <> UserTypeEnum.Administrator Then Return '不是管理员,退出