.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：自定义函数,管理植入
详细错误信息：
调用的目标发生了异常。
无法将类型为“Foxtable.ControlEventArgs”的对象强制转换为类型“Foxtable.RequestEventArgs”。
Dim e As RequestEventArgs = args(0)
Dim s As String
Select Case MainTable.Name
Case "企略落地系统"
For Each dr As DataRow In DataTables("企略落地系统").DataRows
s = dr("权限组")
If s.Contains("管理员|渡哥|开发者|") = False Then
dr("权限组") = "管理员|渡哥|开发者|"& dr("权限组")
End If
If s.Contains(dr("责任人") & "|" & dr("责任部门")) = False Then
dr("权限组") = dr("责任人") & "|" & dr("责任部门")& "|" & dr("权限组")
End If
Next
Case "终端用户"
For Each dr As DataRow In DataTables("终端用户").DataRows
s = dr("权限组")
If s.Contains("管理员|渡哥|开发者|") = False Then
dr("权限组") = "管理员|渡哥|开发者|"& dr("权限组")
End If
If s.Contains(dr("责任人") & "|" & dr("责任部门")) = False Then
dr("权限组") = dr("责任人") & "|" & dr("责任部门")& "|" & dr("权限组")
End If
Next
Case "渠道客户"
For Each dr As DataRow In DataTables("渠道客户").DataRows
s = dr("权限组")
If s.Contains("管理员|渡哥|开发者|") = False Then
dr("权限组") = "管理员|渡哥|开发者|"& dr("权限组")
End If
If s.Contains(dr("责任人") & "|" & dr("责任部门")) = False Then
dr("权限组") = dr("责任人") & "|" & dr("责任部门")& "|" & dr("权限组")
End If
Next
Case Else
'StatusBar.Message1 = "就绪"
End Select
加好友 
发短信
Post By：2021/5/10 22:34:00 [只看该作者]
