Table wird nicht befüllt Fehlersuche

This commit is contained in:
ja
2022-01-10 10:27:57 +01:00
parent d865fb9ed1
commit 1dd3956411
2 changed files with 10 additions and 10 deletions

View File

@@ -402,6 +402,7 @@ Partial Class LKWS
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
Public Shared Function filltable2(Kennzeichen As String) As Table
Dim tbl As Table = New Table
tbl.EnableViewState = True
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
For Each l2 In list2
Dim tc_SDLNr As TableCell = New TableCell
@@ -421,7 +422,6 @@ Partial Class LKWS
tr.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
tbl.Rows.Add(tr)
Next
tbl.EnableViewState = True
Return tbl
End Function
<WebMethod>
@@ -429,6 +429,7 @@ Partial Class LKWS
Public Shared Function filltable2_M(Kennzeichen As String) As Table
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
Dim Tbl As New Table
Tbl.EnableViewState = True
For Each l2 In list2
Dim tc_SDLNr As TableCell = New TableCell
Dim tc_Bezeichnung As TableCell = New TableCell
@@ -447,7 +448,6 @@ Partial Class LKWS
tr_M.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
Tbl.Rows.Add(tr_M)
Next
Tbl.EnableViewState = True
Return Tbl
End Function
End Class