Comments by Member 7733425 (Top 4 by date)

Hi losmac,
Here is the code I used to query a PayrollEntry table, and then used that information to insert a new row or rows into the PayrollHistory database table.
Bob

Private Sub btnPayPostRow_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnPayPostRow.Click

'UpDate DataBase or Exit?
' Display a message box asking users if they want to continue
' Configure message box
Dim message As String = "Do you wish to continue to post these rows?"
Dim caption As String = "Posting to Payroll History"
Dim buttons As MessageBoxButton = MessageBoxButton.OKCancel
' Show message box
If MessageBox.Show(message, caption, buttons) = MessageBoxResult.Cancel Then
MessageBox.Show("Posting has been cancelled")
GoTo Aborted
End If

'Declare varitables for PayrollEntry table
Dim strDate As String = ""
Dim strSSNum As String = ""
Dim strLName As String = ""
Dim strPScale As String = ""
Dim strJobNum As String = ""
Dim strRHrs As String = ""
Dim strOHrs As String = ""
Dim strDHrs As String = ""

'Query the ROWS to be posted in PayrollEntry table
Dim payEntry = From payR In dc.PayrollEntries
Select payR

Me.PayrollEntryDataGrid.ItemsSource = payEntry
For Each payR In payEntry
strDate = payR.DateOf
strSSNum = payR.SocialSecurityNum
strLName = payR.LastName
strPScale = payR.PayScale
strJobNum = payR.JobNumber
strRHrs = payR.RegHrs
strOHrs = payR.OTHrs
strDHrs = payR.DTHrs

'Insert row into PayrollHistory
Dim newPayrollHistory = New PayrollHistory With {.DateOf = strDate, .SocialSecurityNum = strSSNum, .LastName = strLName, .PayScale = strPScale, .JobNumber = strJobNum, .RegHrs = strRHrs, .OTHrs = strOHrs, .DTHrs = strDHrs}
dc.PayrollHistories.InsertOnSubmit(newPayrollHistory)
dc.SubmitChanges()
Next
MessageBox.Show("All the rows has been inserted into PayrollHistory")
Aborted:
End Sub