索引超出了数组界限 这个提示,你试试
pts.Length 看看这个,超出了索引,
Dim pts() As String = e.UserName.Split(".")
MessageBox.Show(e.UserName)
if pts.length <2 then '判断长度
return
end if
Dim dr1 As DataRow
dr1 = DataTables("Users").Find("Group = '" & pts(0) & "' And Name = '" & pts(1) & "'")
If dr1 Is Nothing Then '判断此用户不存在
e.Message = "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr1("Password") <> e.Password Then '如果密码错误
e.Message = "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录