Hi all,



public sub get_code_from_key()

Dim loBO = New BO_Library.employee

loBO.FillByPrimaryKey(4)

Dim lcCode As String = loBO.CurrentRow(1)

End sub



Above sub module is work. How do i convert into function and parameter BO's name is passing?





public function get_code_from_key(byval BO as ???, byval key as integer)

Dim loBO = New BO_Library.BO

loBO.FillByPrimaryKey(key)

Dim lcCode As String = loBO.CurrentRow(1)

Return lcCode

End function





** My collection of BO is under assembly BO_Library





Please help...

Hi Edhy,



your method is doing the code at BO. I don't want the code doing at BO because if i have 50 BO then i need do it 50 times. I want only 2 function there are

1) pass BO's name and primary key then function return me code

2) pass BO's name and code then function return me primary key



Please advice...







Hi Ivan,



I did declare the BO as As MicroFour.StrataFrame.Business.BusinessLayer but it doesn't work.

when i create new instance of the BO with the parameter BO but there is the error code

etc: Dim loBO As BO_Library.BO



Please advice...

Download the sample from the following link and have a look at the Base BO concept. This way you won't have to repeat this kind of code.

http://forum.strataframe.net/FindPost27794.aspx