Метод или операция не реализованы.- как устранить эту ошибку
Public Sub loadlabe1() Dim sql_Sel As String Dim hIssId As Integer = 0 ' hIssId = Request.QueryString("patID") Try Dim Tbl As DataTable Dim doc As New ReportDocument() Dim DM As New DataManager sql_Sel = "exec MPI_Select @Reg_No=1 " Tbl = DataManager.ExecuteScalarDS(sql_Sel, Me.SqlCon, "MPI_Select") doc.Load(Server.MapPath("CrystalReport1.rpt")) doc.SetDataSource(Tbl) crypt.ReportSource = doc 'Catch ex As Exception ' labelmsg.Text = ex.ToString() 'FutureFeature() Catch NotImp As NotImplementedException Console.WriteLine(NotImp.Message) End Try End Sub End Class
Что я уже пробовал:
Общественные суб loadlabe1()
Dim sql_Sel как строка
Dim hIssId как целое число = 0
'hIssId = запрос.QueryString ("patID")
Попробуй
Dim Tbl Как DataTable
Dim doc как новый Отчетдокумент()
Dim DM как новый DataManager
sql_Sel = " exec MPI_Select @Reg_No=1 "
Tbl = DataManager.ExecuteScalarDS(sql_Sel, Me. SqlCon, " MPI_Select")
док.Загрузить(Сервер.MapPath ("CrystalReport1.rpt"))
док.SetDataSource(Tbl)
склеп.ReportSource = док
"Поймать бывшего как исключение
- labelmsg.Текст = ех.Метод toString()
'FutureFeature()
Поймать NotImp Как Исключение Notimplementedexception
Приставка.WriteLine(NotImp. Message)
Конец Попытки
Конец Подводной Лодки
Конец Класса
OriginalGriff
И в чем именно заключается ошибка?
На какой линии он находится?