2-dimensional array

  • Thread starter Thread starter portroe
  • Start date Start date
P

portroe

my 2-dimensional array, is given me the following error message,


'For' loop control variable cannot be of type '1-dimensional array of
String'.

has anybody got a tip on what I have incorrect,

Thanks
 
portroe said:
my 2-dimensional array, is given me the following error message,


'For' loop control variable cannot be of type '1-dimensional array
of
String'.

has anybody got a tip on what I have incorrect,
Click to expand...


Please post Code.
 
* portroe said:
my 2-dimensional array, is given me the following error message,

'For' loop control variable cannot be of type '1-dimensional array
of String'.

has anybody got a tip on what I have incorrect,
Click to expand...

You will have to use 2 nested loops to loop though the array.
 
'thanks


'Declaration of variables and arrays as public
Public AmountclubYear(4, 0) As Decimal
Public club(4) As Integer
Public Year() As Integer
Public InputStartingYear As Integer
Public InputFinalYear As Integer
Public x As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'store the name of each club
club(0) = "r54000"
club(1) = "r54001"
club(2) = "r54002"
club(3) = "r54003"
club(4) = "r54004"

'user enters start and final year,

InputStartingYear = InputBox("Please enter the starting year.")
InputFinalYear = InputBox("Please enter the final year.")

'Program to calculate the number of years
x = InputStartingYear - InputFinalYear

'redim
ReDim Year(x)


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'the user will be prompted by input boxes for cost

For club = 0 To 4
For Year = 0 To x
AmountclubYear(club, Year) = _
CDec(InputBox("Enter the cost incurred for club ",
club, " and year ", Year))
Next Year
Next club
End Sub
End Class
 
portroe said:
Code: 
[/QUOTE]

Please enable Option Strict first. Add the line

Option Strict On

add the top of the source code file, or enabled it in the project
properties. (menu project->properties: general properties->build: Option
Strict On)

After that, fix the obviuos bugs, then I can have a look at it again.
Click to expand...
 
On Tue, 16 Dec 2003 11:37:22 +0100, portroe wrote:

You need to use simple variables in a for next loop.
Public x As Integer
Click to expand...
For club = 0 To 4
For Year = 0 To x
AmountclubYear(club, Year) = _
CDec(InputBox("...")
Next Year
Next club
Click to expand...

The problem is that you're using array variables (club and Year) in the for
loop instead of simple variables.

Use something like this instead:

Public c As Integer
Public y As Integer

For c = 0 to 4
For y = 0 to x
AmountclubYear(c,y) = CDec(InputBox(....))
Next
Next
 
Chris Dunaway said:
You need to use simple variables in a for next loop.
Click to expand...

No, not necessarily. This works:

Dim x(0, 0) As Integer
For x(0, 0) = 0 To 15
Debug.WriteLine(x(0, 0))
Next
 
Back
Top