It depends on the table row that is being copied. For example:Private Sub CopyRow(ByVal SourceBusinessObject As BusinessLayer, ByVal FieldsToSkip As System.Collections.Generic.List(Of String))
'-- Establish Locals
Dim loTemp As MyBO
Dim loColumn As DataColumn
'-- Copy the data into the temp BO
loTemp.CopyDataFrom(SourceBusinessObject, StrataFrame.Business.BusinessCloneDataType.ClearAndFillFromDefaultView)
'-- Set the index to the temp BO
loTemp.SeekToPrimaryKey(SourceBusinessObject.MyPK)
'-- Create a new row in the source BO
SourceBusinessObject.NewRow()
'-- Cycle through the columns
For Each loColumn In SourceBusinessObject.CurrentDataTable.Columns
'-- Check for skipped fields
If FieldsToSkip.Contains(loColumn.Columnname) Then
Continue For
End If
'-- Copy the data
SourceBusinessObject.CurrentRow.Item(loColumn.ColumnName) = loTemp.CurrentRow.Item(loColumn.ColumnName)
Next
'-- Clean Up
loTemp.Dispose()
End Sub