Call ChangeRowFilter(scannedMember.TDL, scannedMember.State)
If dv.Count = 0 Then
' anyrow("MemberID") = scannedMember.TDL
DsMembers.Members.Rows.Add(anyrow)
Else
With dv
.Item(0).Item("FirstName") = scannedMember.FirstName
.Item(0).Item("MiddleName") = scannedMember.MiddleName
.Item(0).Item("LastName") = scannedMember.LastName
.Item(0).Item("Address") = scannedMember.Address
.Item(0).Item("City") = scannedMember.City
.Item(0).Item("State") = scannedMember.State
.Item(0).Item("Zip") = scannedMember.Zip
.Item(0).Item("TDL") = scannedMember.TDL
.Item(0).Item("DOB") = scannedMember.DOB
.Item(0).Item("DateJoined") = scannedMember.DateJoined
.Item(0).Item("DateExpired") = scannedMember.DateExpired
If scannedMember.Barred <> Nothing Then
.Item(0).Item("Barred") = scannedMember.Barred
Else
.Item(0).Item("Barred") = "N"
End If
End With
End If
If btnMode.Text = "Scan Mode" Then
btnMode.PerformClick()
End If
Try
lblName.Text = scannedMember.FirstName.ToString & " " & scannedMember.MiddleName.ToString & " " & scannedMember.LastName.ToString
lblAddress.Text = scannedMember.Address
lblCity.Text = scannedMember.City.ToString & ", " & scannedMember.State.ToString & " " & scannedMember.Zip.ToString
lblDOB.Text = scannedMember.DOB.ToShortDateString
lblStatus.ForeColor = System.Drawing.Color.Purple
lblStatus.Text = "Member Added"
odbdaMembers.Update(DsMembers)
' PrintDocument1.Print()
If hostName.ToLower = fileServer.ToLower Then
NotifyClients.Main()
Else
Call notifyServer()
End If
Catch db As Data.OleDb.OleDbException
MsgBox("Connection to database has encountered a problem.")
Catch pr As Printing.InvalidPrinterException
MsgBox("An error occurred when attempting to print the membership form!")
Catch ex As Exception
MsgBox(ex.ToString)
Exit Function
End Try