/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/fi/subreport.aspx.vb
24 строки
1 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
Partial Class Handlers_subreport Inherits System.Web.UI.Page Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender Dim tid As String = Request.QueryString("t") If Not IsNothing(tid) Then Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions Dim query As String = sqlf.GetScalar("SELECT isnull(SUBREPORT_QUERY,'') from usermodules.dbo.moduletables where id = " & tid) If query <> "" And Not (query.Contains("update") Or query.Contains("delete") Or query.Contains("exec") Or query.Contains("truncate") Or query.Contains("drop")) Then subreport.DataSource = sqlf.GetData(query) Try subreport.DataBind() Catch ex As Exception Response.Clear() Response.Write(ex.Message) End Try End If End If End Sub End Class