Hallo,
Ich habe folgenden Code:
Private Sub submit_btn_ServerClick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles submit_btn.ServerClick
Dim Counter As Integer
Dim ds As New DataSet()
Dim iRow As DataRow
Dim anzahl As Integer
Dim i As Integer
ds.ReadXml(Server.MapPath("AufgabeFlash.xml"))
Counter = CType(ViewState("Counter"), Integer)
iRow = ds.Tables("Aufgabe").Rows(Counter)
If CType(ViewState("Counter"), Integer) <= ds.Tables(0).Rows.Count Then
fill_Controls(iRow)
Counter = Counter + 1
ViewState("Counter") = Counter
Else
Label1.Text = "keine weiteren Fragen"
End If
End Sub
Private Sub fill_Controls(ByVal iRow As DataRow)
Label1.Text = iRow.Item(1)
Label2.Text = iRow.Item(2)
End Sub
Leider bekomm ich, wenn er am Ende ist, also eigentlich "keine weiteren Fragen"
ausgeben sollte, die Fehlermeldung, dass es keine Zeile mehr gibt und "iRow =
ds.Tables("Aufgabe").Rows(Counter)" wird rot markiert.
Wo ist mein Fehler??? Was muss ich anderst machen?
Danke
Christina
--
Christina�Ehrmann
Mobil:�0170�/�3�06�31�33
eMail:[EMAIL PROTECTED]
______________________________________________________________________________
Horoskop, Comics, VIPs, Wetter, Sport und Lotto im WEB.DE Screensaver1.2
Kostenlos downloaden: http://screensaver.web.de/?mc=021110
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
