/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/tablemailer.aspx.vb
28 строк
1 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
Partial Class tableMailer Inherits System.Web.UI.Page Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub Protected Sub tableMailer_Load(sender As Object, e As EventArgs) Handles Me.Load Dim tableIdLIst As String = Request.QueryString("params") If Not IsNothing(tableIdLIst) Then Dim idList() As String = tableIdLIst.Split("|") Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions Dim body As String = "" Dim subject As String = "" For Each tableId As String In idList editableGrid.TableId = tableId Dim dr As Data.DataRow = sqlf.GetData("SELECT distinct tablename, dbtablename FROM UserModules.dbo.ModuleTables WHERE id=" & tableId).Rows(0) Dim tableName As String = dr("tablename") Dim dbTablename As String = dr("dbtablename") editableGrid.TableName = dbTablename subject &= tableName & "/" body &= "<h4>" & tableName & "</h4><hr>" 'editableGrid.IsReadOnly = True 'editableGrid.RefreshData(True) body &= editableGrid.GetHTMLGrid Next CommonFunctions.SendEmail("i.krivokon@samsung.com", subject, body) End If End Sub End Class