edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Zentrierte Fehlermeldung in Tablerow

Browse Source
This commit is contained in:
ja
2021-09-21 15:55:50 +02:00
parent b752460dc4
commit 6035f73a0a
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Customers/CustomsAviso.aspx
View File

@@ -14,6 +14,7 @@
visibility: hidden; visibility: hidden;
color: #043381; color: #043381;
} }
</style> </style>
<!-- Bootstrap CSS --> <!-- Bootstrap CSS -->
<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous"/> <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous"/>

9
Customers/CustomsAviso.aspx.vb
View File

@@ -18,11 +18,10 @@ Partial Class Kundenbereich_Default
DataBind() DataBind()
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis) ' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then If (Page.IsPostBack And normaltable.EnableViewState = False) Then
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
normaltable.EnableViewState = True
Else Else
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
@@ -236,7 +235,7 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If End If
If dt IsNot Nothing Then If dt IsNot Nothing AndAlso dt.Rows.Count = 0 Then
Dim i As Integer = 0 Dim i As Integer = 0
For Each d In dt.Rows For Each d In dt.Rows
Dim tr = New TableRow Dim tr = New TableRow
@@ -325,9 +324,13 @@ Partial Class Kundenbereich_Default
Next Next
Else Else
Dim tbl_cellNothing = New TableCell() Dim tbl_cellNothing = New TableCell()
tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count
tbl_cellNothing.Style.Add("text-align", "center")
Dim tr = New TableRow() Dim tr = New TableRow()
tr.Style.Add("text-align", "center")
tbl_cellNothing.Text = "Keine Daten gefunden." tbl_cellNothing.Text = "Keine Daten gefunden."
tr.Cells.Add(tbl_cellNothing) tr.Cells.Add(tbl_cellNothing)
normaltable.Rows.Add(tr)
End If End If
End Sub End Sub