【发布时间】:2017-06-09 00:39:57
【问题描述】:
当我调试下面的代码时,错误可为空的对象必须在objLstRole = objLstRole.Where(Function(x) x.HQA = UserInfo.HQA).ToList() 行返回一个值
Dim objLstRole As New List(Of Common.Role)()
objLstRole = r.selectAll().ToList()
Dim UI As Common.Objects.User = Session("userinfo")
If Not UI.TrainingCenter Then
objLstRole = r.selectAll().ToList()
TxtPassword.TextMode = TextBoxMode.SingleLine
Else
objLstRole = objLstRole.Where(Function(x) x.TrainingCenter = True).ToList()
TxtPassword.TextMode = TextBoxMode.Password
End If
If UserInfo.User_Id <> "Admin" Then
If UserInfo.HQA Then
objLstRole = objLstRole.Where(Function(x) x.HQA = UserInfo.HQA).ToList()
ElseIf UserInfo.Field Then
objLstRole = objLstRole.Where(Function(x) x.Field = UserInfo.Field).ToList()
End If
End If
请告诉我如何解决这个问题...
【问题讨论】: