---
title: "konstigt felmeddelande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/61698-konstigt-felmeddelande"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "andreas_lindh"
published: "2002-12-09T16:18:10.000Z"
updated: "2002-12-09T19:03:54.000Z"
replies: 2
views: 199
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/61698-konstigt-felmeddelande"
---

# konstigt felmeddelande

## #1 — andreas_lindh, 2002-12-09T16:18Z

Fick ett felmeddelande som jag inte förstår

felet

```
Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

 

Line 139:        #End ExternalSource
Line 140:        
Line 141:        Public Sub New()
Line 142:            MyBase.New
Line 143:            Dim dependencies As System.Collections.ArrayList
 

Source File: H:\WINDOWS\Microsoft.NET\Framework\v1.0.3705\Temporary ASP.NET Files\cup\0c7e5d9e\723f92cc\ugv4-xg_.0.vb    Line: 141
```

Sidan jag försöker köra ser ut så här

```
	sub lotta(obj as object, e as eventargs)
        dim lag(6)
		          
        lag(0) = "Tibro IK"
        lag(1) = "Skövde IK"
        lag(2) = "Mariestad Bois"
        lag(3) = "Skara IK"
        lag(4) = "Leksands IF"
        lag(5) = "Hammarby IF"

		          
        dim i as integer
        Dim r As New Random()
        
        dim antal as integer = 0
        dim antal1 as integer = 0
        dim antal2 as integer = 0
        dim antal3 as integer = 0
        dim antal4 as integer = 0
        dim antal5 as integer = 0
        dim antal_matcher as integer = 100
        dim match(antal_matcher,2)
        dim match1(antal_matcher)
        dim matcher_per_lag = 5
        for i = 1 to antal_matcher
            Dim intHome As Integer = -1
            Dim intVisitor As Integer = -1
            Dim bolEqual As Boolean = True
            Do While bolEqual
                intHome = r.Next(0,6)
                intVisitor = r.Next(0,6)
                
                If intHome <> intVisitor Then
                    bolEqual = False
                End If
            Loop
            dim m as string = lag(intHome) &"-"& lag(intVisitor)
            dim m1 as string = lag(intVisitor) &"-"& lag(intHome)
            dim j as integer
            dim k as integer
            for k = 0 to i
			dim found as boolean = false
			for j = 0 to ubound(match1)
				
				if m = match1(j) or m1 = match1(j) then
					found = true
					exit for
				end if
			next
			if not found then
				
			if i = 2 then
				if not match(i-1,1) = lag(intHome) or match(i-1,2) = lag(intVisitor) then
					match1(i) = lag(intHome) &"-"& lag(intVisitor)
				end if
			elseIf i >= 3 Then
				if not match(i-1,1) = lag(intHome) or match(i-1,2) = lag(intVisitor) or match(i-2,1) = lag(intHome) or match(i-2,2) = lag(intVisitor) or match(i-3,1) = lag(intHome) or match(i-3,2) = lag(intVisitor) then
					match1(i) = lag(intHome) &"-"& lag(intVisitor)
				end if
			else
				match1(i) = lag(intHome) &"-"& lag(intVisitor)
			end if 
					response.write(i &"&nbsp;"& match1(i) & "<br />")				
			end if
			next

        next i
```

Permalänk: https://www.webforum.nu/p/61698

## #2 — icaaq, 2002-12-09T18:45Z

Som felmedelandet säger så förväntar sig compilern att metoden ska ha ett slut, du saknar asso en end sub.

mvh icaaq

Permalänk: https://www.webforum.nu/p/879537

## #3 — andreas_lindh, 2002-12-09T19:03Z

tack  :)

Permalänk: https://www.webforum.nu/p/879547

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/61698-konstigt-felmeddelande