Need some array help.

[James]

Is this possible? I want to pass an array into a function that contains
txtBox.Text properties... I was thinking something like this, but I
know it won't work

Dim vendorFields(9) As String

vendorFields(0) = "txtVendorName. Text"
vendorFields(1) = "txtVendorStree tAddress.Text"
vendorFields(2) = "txtVendorCity. Text"
....
vendorFields(2) = "111 Star Ave"

but really i want it to translate as

txtVendorStreet Address.Text = "111 Star Ave"
I know my logic is messed up, is this possible, and if so how coud I do
it? Thanks

[Cor Ligthert [MVP]]

James,

Why not an array of textboxes

dim myTextBoxes() as Textbox = {txtVendorName, txtVendorStreet ,etc}
venodorfields(2 ).Text = "111StarAve nue"

I hope this helps,

Cor

"James" <ja**********@g mail.comschreef in bericht
news:11******** *************@m 73g2000cwd.goog legroups.com...

Is this possible? I want to pass an array into a function that contains
txtBox.Text properties... I was thinking something like this, but I
know it won't work

Dim vendorFields(9) As String

vendorFields(0) = "txtVendorName. Text"
vendorFields(1) = "txtVendorStree tAddress.Text"
vendorFields(2) = "txtVendorCity. Text"
...
vendorFields(2) = "111 Star Ave"

but really i want it to translate as

txtVendorStreet Address.Text = "111 Star Ave"
I know my logic is messed up, is this possible, and if so how coud I do
it? Thanks

[James]

hmmm sounds like a good solution, but i also have one combo box... and
ideas how i could incorporate that into the array?

thanks.
Cor Ligthert [MVP] wrote:

James,

Why not an array of textboxes

dim myTextBoxes() as Textbox = {txtVendorName, txtVendorStreet ,etc}
venodorfields(2 ).Text = "111StarAve nue"

I hope this helps,

Cor

"James" <ja**********@g mail.comschreef in bericht
news:11******** *************@m 73g2000cwd.goog legroups.com...

Is this possible? I want to pass an array into a function that contains
txtBox.Text properties... I was thinking something like this, but I
know it won't work

Dim vendorFields(9) As String

vendorFields(0) = "txtVendorName. Text"
vendorFields(1) = "txtVendorStree tAddress.Text"
vendorFields(2) = "txtVendorCity. Text"
...
vendorFields(2) = "111 Star Ave"

but really i want it to translate as

txtVendorStreet Address.Text = "111 Star Ave"
I know my logic is messed up, is this possible, and if so how coud I do
it? Thanks

[Cor Ligthert [MVP]]

James,

That is so nice, you can use it with a combobox too.
However than you only need to change the array as

dim ctr() as controls = ............... ............

Text is a property from controls and therefore as well in the textbox as in
the combobox. You don't have to do anything more, text is inherited.

I hope this helps,

Cor
"James" <ja**********@g mail.comschreef in bericht
news:11******** ************@c2 8g2000cwb.googl egroups.com...

hmmm sounds like a good solution, but i also have one combo box... and
ideas how i could incorporate that into the array?

thanks.
Cor Ligthert [MVP] wrote:

>James,

Why not an array of textboxes

dim myTextBoxes() as Textbox = {txtVendorName, txtVendorStreet ,etc}
venodorfields( 2).Text = "111StarAve nue"

I hope this helps,

Cor

"James" <ja**********@g mail.comschreef in bericht
news:11******* **************@ m73g2000cwd.goo glegroups.com.. .

Is this possible? I want to pass an array into a function that contains
txtBox.Text properties... I was thinking something like this, but I
know it won't work

Dim vendorFields(9) As String

vendorFields(0) = "txtVendorName. Text"
vendorFields(1) = "txtVendorStree tAddress.Text"
vendorFields(2) = "txtVendorCity. Text"
...
vendorFields(2) = "111 Star Ave"

but really i want it to translate as

txtVendorStreet Address.Text = "111 Star Ave"
I know my logic is messed up, is this possible, and if so how coud I do
it? Thanks

[James]

Great, thanks for all your help. Much appreciated!
Cor Ligthert [MVP] wrote:

James,

That is so nice, you can use it with a combobox too.
However than you only need to change the array as

dim ctr() as controls = ............... ............

Text is a property from controls and therefore as well in the textbox as in
the combobox. You don't have to do anything more, text is inherited.

I hope this helps,

Cor
"James" <ja**********@g mail.comschreef in bericht
news:11******** ************@c2 8g2000cwb.googl egroups.com...

hmmm sounds like a good solution, but i also have one combo box... and
ideas how i could incorporate that into the array?

thanks.
Cor Ligthert [MVP] wrote:

James,

Why not an array of textboxes

dim myTextBoxes() as Textbox = {txtVendorName, txtVendorStreet ,etc}
venodorfields(2 ).Text = "111StarAve nue"

I hope this helps,

Cor

"James" <ja**********@g mail.comschreef in bericht
news:11******** *************@m 73g2000cwd.goog legroups.com...
Is this possible? I want to pass an array into a function that contains
txtBox.Text properties... I was thinking something like this, but I
know it won't work

Dim vendorFields(9) As String

vendorFields(0) = "txtVendorName. Text"
vendorFields(1) = "txtVendorStree tAddress.Text"
vendorFields(2) = "txtVendorCity. Text"
...
vendorFields(2) = "111 Star Ave"

but really i want it to translate as

txtVendorStreet Address.Text = "111 Star Ave"
I know my logic is messed up, is this possible, and if so how coud I do
it? Thanks

[James]

Cor,

Well, I thought I was done... but when my code gets to this line:

ctrTextFieldNam es(intFieldsRea d).Text =
Microsoft.Visua lBasic.Left(str ReadVendorFile, intFieldValue)

it triggers this error:
An unhandled exception of type 'System.NullRef erenceException ' occurred
in Appointment.exe

Additional information: Object reference not set to an instance of an
object.
Here's the code so you can get a feel of that line in context. Thanks
for your help.
Dim ctrvendorFields () As Control = {txtVendorName,
txtVendorStreet Address, txtVendorCity, txtVendorState, txtVendorZip,
txtVendorPhone, txtVendorCOutst andingBill, txtVendorSalesR epName,
txtVendorCommen ts, cboVendorPerfer redPmtPeriod}
Private Sub fillTextFields( ByVal ctrTextFieldNam es() As Control)
Dim intNumOfFields As Integer = 0
Dim intFieldsRead As Integer = 0
Dim intFieldValue As Integer
Dim strFieldValue As String
strReadVendorFi le = VendorFile.Read Line()
'Store the number of records as an integer value
intNumOfFields = ctrTextFieldNam es.Length

'loop to fill all fields
Do Until intFieldsRead = intNumOfFields + 1
'this is a comma delimited text file we are reading from
'find the length to the first comma
intFieldValue = InStr(strReadVe ndorFile, ",")
'based on the position of the first commma, write the value
on the left
'side of the comma to the .Text property of the record in
the Control Array
ctrTextFieldNam es(intFieldsRea d).Text =
Microsoft.Visua lBasic.Left(str ReadVendorFile, intFieldValue)
'redefine the string so it only contains the remaining
comma delimited fields
'figure out a way to have a flexible value (ie the 100
needs to change)
strReadVendorFi le =
Microsoft.Visua lBasic.Right(st rFieldValue, 100)
intFieldsRead += 1
Loop
End Sub

[Branco Medeiros]

James wrote:
<snip>

ctrTextFieldNam es(intFieldsRea d).Text =
Microsoft.Visua lBasic.Left(str ReadVendorFile, intFieldValue)

it triggers this error:
An unhandled exception of type 'System.NullRef erenceException ' occurred
in Appointment.exe

<snip>

intNumOfFields = ctrTextFieldNam es.Length

'loop to fill all fields
Do Until intFieldsRead = intNumOfFields + 1

<snip>

I guess the previous line shoud be

Do Until intFieldsRead = intNumOfFields

HTH.

Regards,

Branco.

[James]

yeah... but it's still erroring out at that outher spot, i figured what
you just told me needed to be changed, i just wasn't sure yet.
Branco Medeiros wrote:

James wrote:
<snip>

ctrTextFieldNam es(intFieldsRea d).Text =
Microsoft.Visua lBasic.Left(str ReadVendorFile, intFieldValue)

it triggers this error:
An unhandled exception of type 'System.NullRef erenceException ' occurred
in Appointment.exe

<snip>

intNumOfFields = ctrTextFieldNam es.Length

'loop to fill all fields
Do Until intFieldsRead = intNumOfFields + 1

<snip>

I guess the previous line shoud be

Do Until intFieldsRead = intNumOfFields

HTH.

Regards,

Branco.

[James]

Sorry, no response here lately, I still am searching for an answer to
my error. Any ideas? Thanks

James wrote:

yeah... but it's still erroring out at that outher spot, i figured what
you just told me needed to be changed, i just wasn't sure yet.
Branco Medeiros wrote:

James wrote:
<snip>

ctrTextFieldNam es(intFieldsRea d).Text =
Microsoft.Visua lBasic.Left(str ReadVendorFile, intFieldValue)
>
it triggers this error:
An unhandled exception of type 'System.NullRef erenceException ' occurred
in Appointment.exe

<snip>

intNumOfFields = ctrTextFieldNam es.Length
>
'loop to fill all fields
Do Until intFieldsRead = intNumOfFields + 1

<snip>

I guess the previous line shoud be

Do Until intFieldsRead = intNumOfFields

HTH.

Regards,

Branco.

[Branco Medeiros]

James wrote:

Sorry, no response here lately, I still am searching for an answer to
my error. Any ideas? Thanks

Well, I guess your code need some fixes... ;-)

The internal loop can be much simpler:

Private Sub fillTextFields( ByVal TextControls() As Control)
'Populates the controls in TextControls with the fields read from the
'curretn line of the vendor file

'Splits the comma separated items from the line read
'from VendorFile
Dim Texts() As String = VendorFile.Read Line().Split(", "c)

'iterates by each field and saves it on the corresponding control
For Field As Integer = 0 To _
System.Math.Min (Texts.Length, TextControls.Le ngth) - 1
TextControls(Fi eld).Text = Texts(Field).Tr im
Next
End Sub

>From a previous post:

<snip>

Private Sub fillTextFields( ByVal ctrTextFieldNam es() As Control)
Dim intNumOfFields As Integer = 0
Dim intFieldsRead As Integer = 0
Dim intFieldValue As Integer
Dim strFieldValue As String
strReadVendorFi le = VendorFile.Read Line()

strReadVendorFi le is a local string, why isn't it declared inside the
sub? Can it be you're not using "Option Explicit"? If so, you probably
mistyped a control name in your control array. Go activate Option
Explicit first, and *then* come back here... =)))

'Store the number of records as an integer value
intNumOfFields = ctrTextFieldNam es.Length
'loop to fill all fields
Do Until intFieldsRead = intNumOfFields + 1

As I told you, this line must be

Do Until intFieldsRead = intNumOfFields

'this is a comma delimited text file we are reading from
'find the length to the first comma
intFieldValue = InStr(strReadVe ndorFile, ",")

I personally preffer the intrinsic methods unless a library one
provides anything extra. In this case, *IMHO*, you should use

intFiledValue = strReadVendorFi le.IndexOf(","c )

instead of InStr... besides, intFieldValue should be named Pos,
Separator, Split, Comma etc...

'based on the position of the first commma, write the value
on the left
'side of the comma to the .Text property of the record in
the Control Array
ctrTextFieldNam es(intFieldsRea d).Text =
Microsoft.Visua lBasic.Left(str ReadVendorFile, intFieldValue)

The same goes for the previous line: you should use (IMHO):

ctrTextFieldNam es(intFieldsRea d).Text = _
strReadVendorFi le.Substring(0, intFielValue - 1 ).Trim

'redefine the string so it only contains the remaining
comma delimited fields
'figure out a way to have a flexible value (ie the 100
needs to change)
strReadVendorFi le =
Microsoft.Visua lBasic.Right(st rFieldValue, 100)

Oooops, what was that? You are trying to get the rightmost 100 chars
from strFieldValue, but this string was never initialized. Therefore,
you're assigning an empty string to strReadVendorFi le.

If what you want is to discard the slice you just processed, there are
a number of approches:

strReadVendorFi le = Right(strReadVe ndorFile, _
strReadVendorFi le.Length - intFielValue)

Or

strReadVendorFi le = Mid(strReadVend orFile, intFielValue + 1)

Or

strReadVendorFi le = strReadVendorFi le.Substring(in tFielValue + 1)

Or

strReadVendorFi le = strReadVendorFi le.Remove(0, intFielValue + 1)

Etc, etc.

intFieldsRead += 1
Loop

Hmmm if you're just incrementing the intFieldsRead var (which controls
the loop) why not use a For...Next loop, instead?
<snip>

HTH.

Regards and good luck.

Branco.