Passing Optional Arguments into an Array Function

[Winshent]

I want to pass optional arguments to build up varios strings, is this
possible?

look at arrTBL(1,3) in the code below:

=============== =============== =============

Public Function arrTBL(Optional ByVal DataSetName As String = "") As
String(,)
Dim DSN As String = DataSetName

arrTBL(1, 1) = "UP_" & Session("mCallC entreID") & "_Results_Daily "
arrTBL(1, 2) = "DailyCallS t"
arrTBL(1, 3) = "INSERT INTO " & arrTBL(1, 1) & "SELECT " & DSN &
".field1 FROM " & DSN & ";"

End function

=============== =============== =============== =

I would like to be able to do this, but the other arrays dont like it,
too many arguments etc..

Is there a way round this?

[Jay B. Harlow [MVP - Outlook]]

Winshent,
VB.NET is trying to recursively call your routine, rather then treat arrTBL
as a variable.

To avoid the ambiguity this is causing I would define a variable for the
return value, use this value, then return it.

Something like:

Public Function arrTBL(Optional ByVal DataSetName As String = "") As
String(,)
Dim value(1,3) As String
Dim DSN As String = DataSetName
value(1, 1) = "UP_" & Session("mCallC entreID") & "_Results_Daily "
value(1, 2) = "DailyCallS t"
value(1, 3) = "INSERT INTO " & value(1, 1) & "SELECT " & DSN & ".field1 FROM " & DSN & ";"
Return value
End function
NOTE: The optional parameter has nothing to do with it, try the following:

Public Function arrTBL(ByVal x As Integer, ByVal y As Integer) As
String(,)

arrTBL(1,1) = "Hello!"

End Function

"arrTBL(1,1 )" is treated as a recursive call so you get an error about
"Expression is a value and therefore cannot be the target of an assignment".

Hope this helps
Jay
"Winshent" <wi************ *@yahoo.co.uk> wrote in message
news:f5******** *************** ***@posting.goo gle.com...I want to pass optional arguments to build up varios strings, is this
possible?

look at arrTBL(1,3) in the code below:

=============== =============== =============

Public Function arrTBL(Optional ByVal DataSetName As String = "") As
String(,)
Dim DSN As String = DataSetName

arrTBL(1, 1) = "UP_" & Session("mCallC entreID") & "_Results_Daily "
arrTBL(1, 2) = "DailyCallS t"
arrTBL(1, 3) = "INSERT INTO " & arrTBL(1, 1) & "SELECT " & DSN &
".field1 FROM " & DSN & ";"

End function

=============== =============== =============== =

I would like to be able to do this, but the other arrays dont like it,
too many arguments etc..

Is there a way round this?

[Cor Ligthert]

Whinshent,

I can do it in this way, the other way I did not try.
\\\
Dim DSN As String = "whatever"
Dim arrTbl As New ArrayList
arrTbl.Add(New ArrayList)
DirectCast(arrT bl(0), ArrayList).Add( "UP_" & "mCallCentr eID" _
& "_Results_Daily ")
DirectCast(arrT bl(0), ArrayList).Add( "DailyCallS t")
DirectCast(arrT bl(0), ArrayList).Add( "INSERT INTO " & _
DirectCast(arrT bl(0), ArrayList)(0).T oString & _
"SELECT " & DSN & ".field1 FROM " & DSN & ";")
MessageBox.Show (DirectCast(arr Tbl(0), ArrayList)(2).T oString)
///

I hope this helps?

Cor

"Winshent" <wi************ *@yahoo.co.uk>

I want to pass optional arguments to build up varios strings, is this
possible?

look at arrTBL(1,3) in the code below:

=============== =============== =============

Public Function arrTBL(Optional ByVal DataSetName As String = "") As
String(,)
Dim DSN As String = DataSetName

arrTBL(1, 1) = "UP_" & Session("mCallC entreID") & "_Results_Daily "
arrTBL(1, 2) = "DailyCallS t"
arrTBL(1, 3) = "INSERT INTO " & arrTBL(1, 1) & "SELECT " & DSN &
".field1 FROM " & DSN & ";"

End function

=============== =============== =============== =

I would like to be able to do this, but the other arrays dont like it,
too many arguments etc..

Is there a way round this?

[Winshent P]

Jay, i have used your method and it seems to have worked nicely..

Thanks to you both for responding.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!