代码这样改一下。
If User.Type = UserTypeEnum.Administrator Then
DataTables("基本情况").loadfilter = ""
ElseIf user.Type=usertypeenum.Developer Then
DataTables("基本情况").loadfilter = ""
Else
Dim s As String = user.Roles
DataTables("基本情况").loadFilter="预约科室 in ('" & s.Replace(",", "','") & "')"
End If
DataTables("基本情况").Load()