Last night I've changed it here to just use thisform. I think this code was wrong. A similar code was used for Dynamic properties of the grid, but there was a check for the object name.

Here we can just refer a thisform instead.

>I guess you could change the IF to include the name of the form too.
>
>

>if type(m.lcScreenObject + '.name') = 'C' and lower(getpem(m.lcScreenObject, 'Name')) = 'the_form_that_needs_to_be_updated'
>

>
>But to be honest the code looks just bizarre :)
>
>>Hi everybody,
>>
>>I have this code (not sure why it's referencing _screen.ActiveForm)
>>
>>

>>lcObject=sys(1272, this.parent)
>>		lcScreenObject = "_SCREEN.activeform." + justext(m.lcObject)
>>		if type(m.lcScreenObject + '.name') = 'C'
>>			lcCostSource = m.lcScreenObject + ".a_cost(&lcRecn,&lcColIndex)"
>>
>>			.cnt_PurchOrd.spn_Cost.controlsource = lcCostSource
>>
>>			lcRecvSource = lcScreenObject  + ".a_Recv(&lcRecn,&lcColIndex)"
>>			.cnt_PurchOrd.spn_Received.controlsource = m.lcRecvSource
>>
>>			.cnt_PurchOrd.txt_OnHand.value = evaluate(lcScreenObject +".a_OnHand(&lcRecn,&lcColIndex)")
>>			.cnt_PurchOrd.txt_lstCost.value = evaluate(lcScreenObject +".a_LastCost(&lcRecn,&lcColIndex)")
>>			.cnt_PurchOrd.txt_OnOrder.value = evaluate(lcScreenObject +".a_OnOrd(&lcRecn,&lcColIndex)")
>>		endif
>>

>>
>>when the ActiveForm changes, it gives an error. Is there any way to make the above conditional in the ControlSource?
>>
>>Thanks in advance.