Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Eine Liste in ASPx programmieren

Ich möchte hier rechts unter dem Werbebanner eine Liste programmieren, die alle Beiträge in einem Ordner darstellt


In meiner aspx-Webseite habe ich hierzu rechts einen Tabellen-Bereich freigehalten

Auf der Frontside Designseite sieht das so aus


In diesem Fall programmiere ich die Liste mit einem RadListview.
Der Vorteil liegt darin, dass ich dann nur ein Datalist als Datenquelle anbinden muß. Alternativ kann man auch eine Server erstellte Tabelle einbauen.


Ich habe jetzt einfach mal das Teleriks Control in den div-Bereich reingezogen


Hier der Code:
<%--< Folder-Items >--%>
<%-- *alle Elemente in Ordner mit gleichem Namen --%>
<div id="pnlFolderItem" title="Items with similar topic" style="bottom: 5px; opacity: 1; ">
<telerik:RadListView ID="ctlFolder_Items" runat="server"></telerik:RadListView>
</div>
<%--</ Folder-Items >--

Wenn ich jetzt auf die Code-seite wechsle

Dann kann ich hier zunächst eine Function erstellen, die ich beim page_load auch durchlaufen lasse
Ich nenne die Function mal fl_Load_Folder_Items()




Aus der Liste die beim Start geöffnet wird habe ich den Frontcode übernommen
<%--< Folder-Items >--%>
<%-- *alle Elemente in Ordner mit gleichem Namen --%>
<div id="pnlFolderItem" title="Items with similar topic" style="bottom: 5px; opacity: 1; ">
<telerik:RadListView ID="ctlFolderItems" runat="server" AllowPaging="True" DataKeyNames="IDDetail" ItemPlaceholderID="pnlItems" OnPageIndexChanged="ctlFolderItems_PageIndexChanged" PageSize="100" Width="100%" >
<LayoutTemplate>
<fieldset id="FieldSet2" style="padding-right:20px ;width: auto; border: 0px;">
<legend>ähnliche Beiträge:</legend>
<asp:Panel ID="pnlItems" runat="server">
</asp:Panel>
</fieldset>
</LayoutTemplate>
<ItemTemplate>
<div style="float: left; width: 100%; ">
<table style="width: 100%; padding: 0; border-spacing: 0;">
<tr>
<td style="width: auto; padding-left: 5px; font-family: 'Arial Rounded MT'; font-size: large; vertical-align: top;" rowspan="2">
<a href='Details?d=<%#Eval("IDDetail")%>&a=<%#Eval("IDArea")%>&f=<%#Eval("IDFolder")%>&l=<%=_IDLanguage%>&t=<%#Eval("sTitleURL")%>' style="color: blue; font-family: Arial;"><%# Eval("sTitle")%></a>
</td>
</tr>
<tr style="height: 30px;">
<td style="width: 160px;max-height:160px;vertical-align:top;">
<%----------< Thumbnail >----------%>
<img alt="<%#Eval("sTitle")%>" src="<%#Eval("Thumbnail_URL")%>" title="<%#Eval("sTitle")%>" style="max-width:160px;max-height:160px;min-width:160px;padding-right:10px;"/>
<%----------< Thumbnail >----------%></td>

<td style="width:100px;text-align:right;">
<%#Eval("sDateCreated")%> <%#Eval("nVisits")%>
<br />
<%#Eval("sText")%>
</td>
</tr>

</table>
<hr style="border-bottom-style:dashed;border-top-style:none; border-color:gray;border-width:1px"/>
</div>

</ItemTemplate>
</telerik:RadListView>
</div>
<%--</ Folder-Items >--%>


Auf der Codeseite rufe ich jetzt folgende Function beim laden der Page aus.

Private Sub fl_Load_Folder_Items()
'--------------------< fl_Load_Folder_Items() >--------------------
If Not Request.Url.LocalPath Like "/Details" Then
'Die Anzeige von Folder_Items nur bei Details anzeige
Exit Sub
End If

'----< Basis-Knoten >----
Dim intIDFolder As Long = _IDFolder
If intIDFolder = 0 Then
intIDFolder = clsDB.dbLong(clsDB.getValue("IDFolder", "tblWeb_Details", "IDDetail=" & _IDDetail))
End If

Dim sFolder_Title As String = ""
sFolder_Title = clsDB.dbText(clsDB.getValue("Title0", "tblSys_Folders", "IDFolder=" & intIDFolder))

'< Kontrolle >
If sFolder_Title Like "" Then
Exit Sub
End If
'</ Kontrolle >
Try
Dim dt As New DataTable
Try
'< SQL erstellen >
Dim sSQL As String = "SELECT TOP 20 tblWeb_Details.IDDetail,tblWeb_Details.IDArea,tblWeb_Details.IDFolder,tblWeb_Details.Title0,tblWeb_Details.Title1"
sSQL &= " ,Left(tblWeb_Details.Text0,200) AS sText0,Left(tblWeb_Details.Text1,200) AS sText1"
sSQL &= " ,'' AS Thumbnail_URL,'' AS sTitle,'' AS sText,'' AS sTitleURL "
sSQL &= " ,tblWeb_Details.nVisits,tblWeb_Details.dtCreated, '' AS sDateCreated"

sSQL &= " FROM tblWeb_Details "
sSQL &= " INNER JOIN tblSys_Folders"
sSQL &= " ON tblWeb_Details.IDFolder = tblSys_Folders.IDFolder"

sSQL &= " WHERE tblWeb_Details.IDArea = " & _IDArea
sSQL &= " AND (tblSys_Folders.IDFolder=" & intIDFolder & ")"
sSQL &= " AND (tblSys_Folders.Title0 LIKE '" & sFolder_Title & "')"

sSQL &= " ORDER BY IDDetail DESC"
'</ SQL erstellen >

dt = clsDB.getDataTable(sSQL)
For Each row As DataRow In dt.Rows
'< init >
Dim intIDDetail As Long = fx.dbZahlInt(row("IDDetail"))
Dim sTitle As String = clsDB.dbText(row("Title" & _IDLanguage))
Dim sText As String = clsDB.dbText(row("sText" & _IDLanguage))
Dim dateCreated As Date = fx.dbDate(row("dtCreated"))
'Dim intViews As Integer = fx.dbZahlInt(row("nVisits"))
'-< Sprachkorrektur >-
If _IDLanguage > 0 Then
If sTitle Like "" Then
sTitle = clsDB.dbText(row("Title0"))
End If
If sText Like "" Then
sText = clsDB.dbText(row("sText0"))
End If
End If
'-</ Sprachkorrektur >-

'< html-tags entfernen >
sTitle = sx.remove_Tags(sTitle)
sText = sx.remove_Tags(sText)
'</ html-tags entfernen >

'--< Korrekturen >--
sText = sx.remove_link_Adressen(sText)
sText = Replace(sText, "--", " ", 1, -1, CompareMethod.Binary)
sText = Replace(sText, "&nbsp;", " ", 1, -1, CompareMethod.Binary)
'--</ Korrekturen >--


row("sTitle") = sTitle
row("sTitleURL") = sTitle.Replace(" ", "-")
row("sText") = sText

Dim intOrderNr As Integer = fx.dbZahlInt(clsDB.getValue("OrderNr", "tblWeb_Images", "IDDetail=" & intIDDetail))
Dim intTeiler As Integer = intIDDetail / 1000
If intOrderNr > 0 Then
row("Thumbnail_URL") = "/Daten/Images/" & intTeiler & "/Thumbnail_" & intIDDetail & "_" & intOrderNr & ".jpg"
Else
row("Thumbnail_URL") = "" 'Daten/Images/Bild_klein_leer.jpg"
End If
row("sDateCreated") = dateCreated.ToShortDateString
Next
Catch ex As Exception
'fp_Message_anzeigen(ex.Message, "Fehler in Datenset erstellen ", "fl_Load_Listview()")
End Try

'< anbinden >
ctlFolder_Items.DataSource = dt
ctlFolder_Items.DataBind()
'</ anbinden >

Catch ex As Exception
'fp_Message_anzeigen(ex.Message, "Fehler Daten anbinden databind.", "fl_Load_Listview()")
End Try
'End If
'----</ Basis-Knoten >----
'--------------------</ fl_Load_Folder_Items() >--------------------
End Sub



Als Ergebnis habe ich jetzt rechts eine Liste von Elementen, die sich im gleichen Ordner befinden
Mobile
»
Telerik: RadDataGrid No custom resource loader set
»
Gelöst: Telerik, wpf: RibbonWindow: Der Background überdeckt die Application-Title Leiste
»
Anzeigen einer Liste mit Teleriks Listview
»
Telerik SpreadSheet Control

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de