StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Strong typed reference to BO field

Strong typed reference to BO field

Keith Chisarik — Fri, 19 Jun 2009 08:28:58 GMT

I have a list of field names in a database. I want to get a programatic reference to the corresponding field property on the BO so I can set its value. How?

RE: Strong typed reference to BO field

Trent L. Taylor — Fri, 19 Jun 2009 08:28:58 GMT

Looking at your code, why can't you just use the CurrentRow property.

Instead of:

[codesnippet]Dim x As DataTable = Me.Bo_consignee1.CurrentDataTable
Dim y As DataRow = x.Rows.Item(bo.CurrentRowIndex)
y.Item(sqlField) = v[/codesnippet]

Use:

[codesnippet]Bo_consignee1.Item(sqlField) = v[/codesnippet]

There is nothing wrong with this approach. I will do this a fair amount myself at times.

RE: Strong typed reference to BO field

Keith Chisarik — Thu, 18 Jun 2009 12:36:05 GMT

I got this to work by modifying the underlying datatable, I would rather use the BO field properties.

Background on the why: I have a need to convert VFP tables to SQL, the target structures will be a moving target so I came up with a system that allows you to map VFP fields to SQL fields, and apply any conversion rules that need to be applied. These mapping rules are stored in a table so they can be modified and re-run as many times as needed as the process evolves and the target tables structures change.

For Each row_conversionrule As BUSINESS.bo_mapfields In Me.Bo_mapfields.GetEnumerable()

Dim sqlField As String = row_conversionrule.mapf_sqlfield

Dim s As Object

Dim vfpField As String = row_conversionrule.mapf_vfpfield

Dim v As Object

s = Me.Bo_consignee1.Item(sqlField)

v = Me.Vfpbo_consig1.Item(vfpField)

s = v ' only changes the string object values, not the BO field value

'workaround below

Dim x As DataTable = Me.Bo_consignee1.CurrentDataTable

Dim y As DataRow = x.Rows.Item(bo.CurrentRowIndex)

y.Item(sqlField) = v

RE: Strong typed reference to BO field

Keith Chisarik — Thu, 18 Jun 2009 11:41:54 GMT

almost... In your example above I want to use r to set the value of the bo.field to something, not just read the data value

RE: Strong typed reference to BO field

Trent L. Taylor — Wed, 17 Jun 2009 16:14:56 GMT

I understand...glad to help!

RE: Strong typed reference to BO field

Keith Chisarik — Wed, 17 Jun 2009 14:15:05 GMT

Exactly what I wanted. Lots of collections, picking the right one is the trick :)

RE: Strong typed reference to BO field

Trent L. Taylor — Wed, 17 Jun 2009 13:16:49 GMT

So you have a string with a field name in it, correct? And you want to retrieve the data from that field on the BO? For example:

[codesnippet]Dim myField As String = "cust_FirstName"
Dim r As Object

r = MyBO.Items(myField)[/codesnippet]

Or are you wanting to use reflection and actually get to the FieldPropertyDescriptor?