Crystal report - выпуск отчета об экспорте

---

Привет,

У меня есть ASP.NET веб-сайт с crystal report viewer в нем. Я могу сгенерировать отчет, но когда я пытаюсь его экспортировать, он показывает формат экспорта, но не экспортирует отчет.

У меня есть crystal report версии 13.0.22
Операционная система: Windows Server 2012 R2 (стандарт x86)

Пожалуйста помочь.

Что я уже пробовал:

Private Sub UserEntitlementReport()
Попробуй
Dim strSql как строка = ""
Dim strParam как строка = ""
Dim StrStatus Как Строка = ""
Если Сессия.Пункт("ветвь") <> "0" затем
strParam = " где dbo.tblBranch.BranchCode = " & сессия.Пункт("Филиал")
Конец, Если

Если Сессия.Пункт("Статус").ToString.Trim.ToUpper <> "Все", то
Если Сессия.Пункт("Статус").ToString.Trim.ToUpper = "включено", то
StrStatus = "1"
Еще
StrStatus = "0"
Конец, Если
Если strParam = "", то
strParam = "Where Isnull(dbo.tblUser.Status, 0) =" & StrStatus
Еще
strParam = strParam & "и Isnull(dbo.tblUser.Status, 0) =" & StrStatus
Конец, Если

Конец, Если


strSql = "выберите dbo.tblUser.Идентификатор пользователя, " и усилитель; _
"dbo.tblUser.UserName", & _
-dbo.tblBranch.BranchEngName, " & _
"dbo.tblUser.CreationDate", & _
"CASE when tblUser.AdminChanged = 0 and tblUser.Status = 0 THEN tblUser.LastSignedOn ELSE tblUser.LastSignedOnStaged END AS LastSignedOn," & _
"ДБО.tblUser.PasswordChangedOn, " усилителя; _
"ДБО.tblUser.ComulativeInvalidLogin, " усилителя; _
"ДБО.tblUser.SuccessiveInvalidLogin, " усилителя; _
"Случай, когда функция isnull(ДБО.tblUser.Статус, 0) = 1 тогда "включить", еще "отключено" конец как статус ,tblUser.UserLevel " и усилитель; _
"От dbo.tblUser внутреннее соединение " и усилитель; _
"dbo.tblBranch на dbo.tblUser.BranchCode = dbo.tblBranch.BranchCode " & strParam


Dim cmd As New OdbcCommand(strSql, cn.OdbcConne)
Dim DA как новый OdbcDataAdapter(cmd)
Dim ds как новый набор данных()
ДС.Понятно()

Да.Заполнить(ДС)
Тусклый CRS1 как новые кристаллические решения.CrystalReports.Двигатель.Документе
Dim RPath As String = Сервер.MapPath("rptUserEntitlement.rpt")

Тусклые Парамерфилды Как Новые Кристаллические Решения.Общий.ParameterFields
Тусклый Парам Как Новые Кристаллические Решения.Общий.ParameterField
Дим paramValue как новый CrystalDecisions.Общий.ParameterDiscreteValue

Парам.ParameterFieldName = "Ветвь"
paramValue.Значение = Сеанс.Элемент("Имя Ветви")
Парам.Текущие значения.Добавить(paramValue)
Парамтерфилдс.Добавить(Param)

Парам = Новый CrystalDecisions.Общий.ParameterField
paramValue = новые кристаллические решения.Общий.ParameterDiscreteValue
Парам.ParameterFieldName = "Статус"
paramValue.Значение = Сеанс.Пункт("Статус")
Парам.Текущие значения.Добавить(paramValue)
Парамтерфилдс.Добавить(Param)

CRV1.ParameterFieldInfo = ParamterFields
CRS1.Загрузить(Путь Rpath)
CRS1.база данных.Таблицы(0).SetDataSource(ds.Таблицы(0))

CRV1.ReportSource = ничего
CRV1.ReportSource = CRS1
Поймать ex как исключение
lblError.Текст = ex.сообщение
КН.варлог.WriteLog(формат(сейчас, "yyyyMMddHHmmss"), сессия.Пункт("идентификатор"), "веб", , lblError.Текст, Регистратор.Строгость.Ошибки, Регистратор.Тип события.Неудача, "паутина")

Конец Попытки
Конец Подводной Лодки

---