Testergebnis wird angezeigt

This commit is contained in:
ja
2021-12-23 08:50:31 +01:00
parent c6ea8cbf9b
commit 31d62f79d9
5 changed files with 71 additions and 28 deletions

View File

@@ -173,14 +173,12 @@ Partial Class LKWS
'MsgBox("Test3")
End Sub
Public Function ConvertToJSON(lst As List(Of String)) As String
Dim jss1 As New JavaScriptSerializer()
Dim _myJSONstring As String = jss1.Serialize(lst)
Return _myJSONstring
End Function
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
thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)