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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-12-06 11:53:02 +01:00
parent 273a0c5b29
commit 9b001e5803
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/frmMain.vb
View File

@@ -517,19 +517,19 @@ Public Class frmMain
Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
'Form1.Show()
' Dim l As New VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401462)
Dim sdl As New VERAG_PROG_ALLGEMEIN.cSDL
'Dim sdl As New VERAG_PROG_ALLGEMEIN.cSDL
Dim list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
For Each l In list
l.KfzKennzeichen
Next
'Dim list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
'For Each l In list
' l.KfzKennzeichen
'Next
MsgBox(list.Count)
Dim list2 = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
MsgBox(list2.Count)
Dim list3 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, list2(0).KfzKennzeichen)
MsgBox(list3.Count)
MsgBox(list3(0).KartenNr)
'MsgBox(list.Count)
'Dim list2 = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
'MsgBox(list2.Count)
'Dim list3 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, list2(0).KfzKennzeichen)
'MsgBox(list3.Count)
'MsgBox(list3(0).KartenNr)
End Sub