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

GUI Tabellenaufbau

Browse Source
This commit is contained in:
ja
2021-12-07 16:42:47 +01:00
parent ec6339fd01
commit 22f8b73c25
1 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Customers/LKWs.aspx.vb
View File

@@ -28,15 +28,18 @@ Partial Class LKWS
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
MsgBox("Test1")
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
tblhrow.Cells.Add(tblheader_Cell1)
tblhrow.Cells.Add(tblheader_Cellnat)
tblhrow.Cells.Add(tblheader_Cellverk)
tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_Verm)
@@ -51,7 +54,7 @@ Partial Class LKWS
Dim tc_Verk As TableCell = New TableCell()
Dim tc_KZ_An As TableCell = New TableCell()
Dim tc_Vermerk As TableCell = New TableCell()
initcells(tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk)
tc_KfzKennz.Text = l1.KfzKennzeichen
tr1.Cells.Add(tc_KfzKennz)
tc_Nationalitaet.Text = String.Empty
@@ -64,13 +67,28 @@ Partial Class LKWS
tr1.Cells.Add(tc_KZ_An)
tc_Vermerk.Text = l1.Vermerk.ToString
tr1.Cells.Add(tc_Vermerk)
cnt += 1
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tbl_sidemenue.Rows.Add(tr1)
Next
MsgBox("Test3")
End Sub
Private Sub initcells(tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell)
Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
Dim res As Integer
tr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th3.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th4.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th5.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
If Math.DivRem(countrows, 2, res) = 0 Then
Else
End If
End Sub
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
@@ -82,10 +100,12 @@ Partial Class LKWS
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
tblhrow.Cells.Add(tblheader_Cell1)
tblhrow.Cells.Add(tblheader_Cellnat)
tblhrow.Cells.Add(tblheader_Cellverk)
tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_Verm)
@@ -93,6 +113,7 @@ Partial Class LKWS
'tbl_sidemenue2.Rows.Clear()
MsgBox("Test1")
For Each l2 In list
Dim cnt As Integer = 0
Dim tr2 As TableRow = New TableRow()
Dim tc_KfzKennz As TableCell = New TableCell()
Dim tc_Nationalitaet As TableCell = New TableCell()
@@ -110,8 +131,11 @@ Partial Class LKWS
tc_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk)
'tr2.Attributes.Add("command", "getinfos")
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tbl_sidemenue2.Rows.Add(tr2)
cnt += 1
Next
MsgBox("Test2")
End Sub