Implementierung der Funktionskörper

App_Code/WebService.vb

@@ -151,19 +151,42 @@ Public Class WebService
         myConn.Close() : Return lstCountries
     End Function
     <WebMethod()>
-    Private Function buildtablerow(page As Page, tbl As Table) As Table
+    Private Function buildtablerow(tbl As Table, SDLNumber As String, Bezstr As String, Datgueltigbisstr As String, KartNr As String) As Table
 
         Dim row As TableRow = New TableRow
         Dim c1 As TableCell = New TableCell
         Dim c2 As TableCell = New TableCell
         Dim c3 As TableCell = New TableCell
+        Dim c4 As TableCell = New TableCell
 
-        c1.Text = "ID"
-        c2.Text = "Stadt"
-        c3.Text = "Persona"
+        c1.Text = SDLNumber
+        c2.Text = Bezstr
+        c3.Text = Datgueltigbisstr
+        c4.Text = KartNr
         row.Cells.Add(c1)
         row.Cells.Add(c2)
         row.Cells.Add(c3)
+        row.Cells.Add(c4)
+        tbl.Rows.Add(row)
+        Return tbl
+    End Function
+    <WebMethod()>
+    Private Function buildtablerow_M(tbl As Table, SDLNumber_M As String, Bezstr_M As String, Datgueltigbisstr_M As String, KartNr_M As String) As Table
+
+        Dim row As TableRow = New TableRow
+        Dim c1 As TableCell = New TableCell
+        Dim c2 As TableCell = New TableCell
+        Dim c3 As TableCell = New TableCell
+        Dim c4 As TableCell = New TableCell
+
+        c1.Text = SDLNumber_M
+        c2.Text = Bezstr_M
+        c3.Text = Datgueltigbisstr_M
+        c4.Text = KartNr_M
+        row.Cells.Add(c1)
+        row.Cells.Add(c2)
+        row.Cells.Add(c3)
+        row.Cells.Add(c4)
         tbl.Rows.Add(row)
         Return tbl
     End Function