定位一下,哪句代码有错。
http://www.foxtable.com/help/topics/1485.htm
一般这句代码有问题
Dim dr As DataRow = DataTables("授权表").Find("[用户分组] = '" & User.Group & "'")
If dr IsNot Nothing Then
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
End If