- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义登陆取消后错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28771)
-- 发布时间：2013/2/18 13:53:00
-- 自定义登陆取消后错误
自定义登陆窗口点击取消后出现错误提示，这个怎么处理呢
取消按钮的代码：
If _UserName = "" Then
Syscmd.Project.Exit()
End If
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2013-2-18 13:53:32编辑过]
-- 发布时间：2013/2/18 13:54:00
--
提示什么错误？
直接写 Syscmd.Project.Exit()
-- 发布时间：2013/2/18 14:17:00
--
加个返回代码
-- 发布时间：2013/2/18 14:22:00
--
你的取消按钮后面还有代码吧？
有就多加一个 return
-- 发布时间：2013/2/18 16:55:00
--
在afteropenobject 里有个权限代码，这个代码出现，在登陆窗口取消时就出错，看下该如何操作
此主题相关图片如下：未命名1.jpg
For Each t As Table In Tables
t.Visible = True
t.AllowEdit = True
For Each c As Col In t.Cols
c.Visible = True
c.AllowEdit = True
Next
Next
Tables("权限表").Visible = (User.Type <> UserTypeEnum.User )
Dim j As String = _Userrole.trim()
For Each dr As DataRow In DataTables("权限表").Select("[角色] like \'*" & j & "*\'" )
Dim lm As String = dr("列名")
Dim Values() As String
Values = lm.split(",")
For Each l As String In values
If dr.IsNull("列名") Then
For Each t As Table In Tables
If t.DataTable.Name = dr("表名") Then
t.Visible = Not dr("不可见")
t.AllowEdit = Not dr("不可编辑")
End If
Next
Else
For Each t As Table In Tables
If t.DataTable.Name = dr("表名") Then
For Each c As Col In t.Cols
If c.Name = l Then
c.Visible = Not dr("不可见")
c.AllowEdit = Not dr("不可编辑")
End If
Next
End If
Next
End If
Next
Next
-- 发布时间：2013/2/18 17:01:00
--
理应不会出现这样的错误的。你做个小例子出来。
不行就联系下客服QQ。