Testergebnis wird angezeigt
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user