If col.ColumnName = Me.PublicacionesBO1.PrimaryKeyField Then

Continue For

End If

If col.ColumnName = Me.PublicacionesBO1.Ofertas Then

 Continue For

End If

... some other fields here

''' <summary>
''' 09/08/2008 Edhy Rijo
''' Edits the currently selected child record
''' This method should be use temporarily until the internal one in the listview
''' is made available by SF Team
''' </summary>
''' <remarks></remarks>
Private Sub EditChildRecord()
     Dim bo As BusinessLayer = Me.lstItems.BusinessObject
     '-- If no business object is attached then there is nothing to do
     If bo Is Nothing Then Exit Sub
'-- See if a snapshot should be taken
If Me.lstItems.AutoSnapshotBusinessObject Then bo.SaveCurrentDataTableToSnapshot(Me.lstItems.AutoSnapshotKey)
'-- Ensure the the correct record is selected in case it had been moved by the developer
               bo.NavigateToPrimaryKey(Me.lstItems.SelectedItems(0).Tag)
               '-- Place the record in edit mode
               bo.Edit()
               '-- See if there is a child dialog
               If lstItems.ChildForm IsNot Nothing Then
                    '-- Raise the before child form executed event
                    ' OnBeforeChildFormExecuted(New ListViewBeforeChildExecuteEventArgs(ListViewChildFormAction.Edit))
                    '-- Call the child form and create the args
                    Dim args As New MicroFour.StrataFrame.UI.Windows.Forms.ListViewChildFormResultsEventArgs(MicroFour.StrataFrame.UI.ListViewChildFormAction.Edit, Me.lstItems.ChildForm.ShowDialog())
                    ''-- Raise the event
                    Me.lstItems_ChildFormResults(Me.lstItems, args)
                    '-- See if the list should be requeried
                    If args.Requery Then
                         '-- Save off the primary key value
                         Dim reselect As Boolean = True
                         Dim pk As Object = Nothing
                         Try
                              pk = bo.CurrentRow(bo.PrimaryKeyField)
                         Catch ex As Exception
                              reselect = False
                         End Try
                         '-- Requery the list
                         Me.lstItems.Requery()
                         '-- Attempt to select the item
                         If reselect Then SelectIndexByPrimaryKey(pk)
                    End If
               End If
End Sub
''' <summary>
''' 09/08/2008 Edhy Rijo
''' Attempts to select the row index associated with the specified primary key
''' This method is used by EditChildRecord
''' This method should be use temporarily until the internal one in the listview
''' is made available by SF Team
''' </summary>
''' <param name="primaryKey"></param>
''' <remarks></remarks>
Private Sub SelectIndexByPrimaryKey(ByVal primaryKey As Object)
     For Each i As ListViewItem In Me.lstItems.Items
          If i.Tag.Equals(primaryKey) Then
               '-- Select the item
               i.Selected = True
               '-- Ensure this item is visible
               Me.lstItems.EnsureVisible(Me.lstItems.Items.IndexOf(i))
               '-- Nothing left to do
               Exit For
          End If
     Next
End Sub

Private Sub tsbCopyAndAddRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbCopyAndAddRecord.Click

     '-- If there is not item selected in the list, then

     '-- instruct the user to select a record first.

     If Me.lstItems.SelectedItems.Count = 0 Then

          Me.ShowMessageByKey("SelectRecordToCopy")

          Exit Sub    

     End If

     Try

          '-- Save off the current row

          Dim copyRow As DataRow = Me.BizItems1.CurrentRow

          If Me.BizItems1.NewRow() Then

               '-- Now update each of the columns within the new row.

               For Each col As DataColumn In Me.BizItems1.CurrentDataTable.Columns

                    '-- Skip the Primary Field, since the field is autoincremented or

                    '-- a generated GUID

                    If col.ColumnName = Me.BizItems1.PrimaryKeyField Then

                         Continue For

                    End If

                    '-- Do the actual copy of each field or column here.

                    Me.BizItems1.CurrentRow(col) = copyRow(col)

               Next

               '-- Show the ChildForm for the copied record.

               Me.EditChildRecord()

          End If

     Catch ex As Exception

     End Try

End Sub

   Public Shared Function CopyRecord(ByVal sourceRow As DataRow) As DataRow
      '-- Add the logic from the previous post here with your "tweaks"
   End Function
End Class

'-- Save off the current row
Dim copyRow As DataRow = MyBo.CurrentRow
MyBo.NewRow()
'-- Now update each of the columns within the new row.  You may want to test
'    on certain column names to be excluded, such as PK fields.
For each col as DataColumn In MyBo.CurrentDataTable.Columns
    MyBo.Items(col.ColumnName) = copyRow.Item(col.ColumnName)        
Next