Bildbutton in Table eingefügt und Tabelle angepasst mit Spaltenreihenfolge und Namen sowie Anpassung der Überschriften

This commit is contained in:
ja
2021-09-15 15:11:43 +02:00
parent 99c95fa3b7
commit 437074ebce
3 changed files with 25 additions and 0 deletions

View File

@@ -176,6 +176,25 @@ Partial Class Kundenbereich_Default
tr.Cells.Add(tbl_CellEmpfaenger)
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
tr.Cells.Add(tbl_CellKundAuftNr)
Dim btn2 As New ImageButton
btn2.ImageUrl = "../images/Icons/service/hilfe_small.png"
btn2.CssClass = "btn btn-primary"
btn2.ViewStateMode = ViewStateMode.Disabled
btn2.PostBackUrl = "../status_Julius.aspx?Par1=" + KDNAFNR.ToString
Dim btn As New Button
btn.ViewStateMode = ViewStateMode.Disabled
btn.Text = "Text"
btn.CssClass = "btn btn-primary"
btn.Attributes.Add("Text", <img src="../images/Icons/service/hilfe.png" width="15" height="15"/>)
btn.PostBackUrl = "../status_Julius.aspx?Par1=" + KDNAFNR
tbl_CellInfo.Controls.Add(btn2)
tr.Cells.Add(tbl_CellInfo)
If rbt_Ankunft.Selected = True AndAlso tbl_CellStatus.Text = "Ankunft" Then
normaltable.Rows.Add(tr)
ElseIf rbt_Erf.Selected = True AndAlso tbl_CellStatus.Text = "Erfasst" Then
@@ -190,11 +209,15 @@ Partial Class Kundenbereich_Default
normaltable.Rows.Add(tr)
End If
i += 1
Next
End If
End Sub
Protected Sub btimg_Click(sender As Object, e As EventArgs)
End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
rbt_Ankunft.Selected = False