Private Sub ExecuteWork(ByVal value As String)
Dim row As Long
row = 1
Dim Inspfred As Worksheet
Dim Inspchris As Worksheet
Dim Inspjr As Worksheet
Dim Inspluc As Worksheet
Dim Inspted As Worksheet
Inspfred = Form1.xlWorkBook.Sheets("Inspfred")
Inspchris = Form1.xlWorkBook.Sheets("Inspchris")
Inspjr = Form1.xlWorkBook.Sheets("Inspjr")
Inspluc = Form1.xlWorkBook.Sheets("Inspluc")
Inspted = Form1.xlWorkBook.Sheets("Inspted")
Dim rg1 As Range 'Range pour fred
Dim rg2 As Range 'Range pour chris
Dim rg3 As Range 'Range pour jr
Dim rg4 As Range 'Range pour luc
Dim rg5 As Range 'Range pour ted
rg1 = Inspfred.Range("C1").CurrentRegion
rg2 = Inspchris.Range("C1").CurrentRegion
rg3 = Inspjr.Range("C1").CurrentRegion
rg4 = Inspluc.Range("C1").CurrentRegion
rg5 = Inspted.Range("C1").CurrentRegion
Dim s As String = "Testing Worker Method"
For i = 1 To rg1.Rows.Count
Debug.Write(s) 'This is running on non-ui thread
Dim values As Object(,) = rg1.Value
If rg1.Cells(i, 3).value = value Then
TextBox_RDIMS.Invoke(New Callback(AddressOf UpdateUI), TextBox_RDIMS, values(i, 19))
TextBox_RSIG.Invoke(New Callback(AddressOf UpdateUI), TextBox_RSIG, values(i, 18))
TextBox_LocationNAME.Invoke(New Callback(AddressOf UpdateUI), TextBox_LocationNAME, values(i, 4))
TextBox_Type.Invoke(New Callback(AddressOf UpdateUI), TextBox_Type, values(i, 6))
TextBox_ABC.Invoke(New Callback(AddressOf UpdateUI), TextBox_ABC, values(i, 7))
TextBox_Railway.Invoke(New Callback(AddressOf UpdateUI), TextBox_Railway, values(i, 5))
TextBox_issue.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, values(i, 8))
TextBox_InspFROM.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspFROM, values(i, 9))
TextBox_InspTO.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspTO, values(i, 10))
TextBox_Total_Insp.Invoke(New Callback(AddressOf UpdateUI), TextBox_Total_Insp, values(i, 11))
TextBox_Date.Invoke(New Callback(AddressOf UpdateUI), TextBox_Date, values(i, 12))
TextBox_Year.Invoke(New Callback(AddressOf UpdateUI), TextBox_Year, values(i, 2))
TextBox_Lead_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_Lead_RSI, values(i, 15))
TextBox_2nd_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_2nd_RSI, values(i, 16))
TextBox_Letterofconcern.Invoke(New Callback(AddressOf UpdateUI), TextBox_Letterofconcern, values(i, 21))
TextBox_Prenotice.Invoke(New Callback(AddressOf UpdateUI), TextBox_Prenotice, values(i, 23))
TextBox_notice_order.Invoke(New Callback(AddressOf UpdateUI), TextBox_notice_order, values(i, 26))
TextBox_NAIAT.Invoke(New Callback(AddressOf UpdateUI), TextBox_NAIAT, values(i, 28))
TextBox_AMP.Invoke(New Callback(AddressOf UpdateUI), TextBox_AMP, values(i, 29))
TextBox_letterofwarning.Invoke(New Callback(AddressOf UpdateUI), TextBox_letterofwarning, values(i, 31))
TextBox_Comments.Invoke(New Callback(AddressOf UpdateUI), TextBox_Comments, values(i, 32))
TextBox_insp_type.Invoke(New Callback(AddressOf UpdateUI), TextBox_insp_type, values(i, 17))
row = row + 1
Exit For
'We call the control we MUST invoke, create a new delegate, send it the method to update from, and provide the control to that method, with the new value.
'See on updating values from cells : https://stackoverflow.com/questions/23004274/vb-net-excel-worksheet-cells-value
End If
Next
For i = 1 To rg2.Rows.Count 'Range pour Inspchris
Dim values As Object(,) = rg2.Value
If rg2.Cells(i, 3).value = value Then
TextBox_RDIMS.Invoke(New Callback(AddressOf UpdateUI), TextBox_RDIMS, values(i, 19))
TextBox_RSIG.Invoke(New Callback(AddressOf UpdateUI), TextBox_RSIG, values(i, 18))
TextBox_LocationNAME.Invoke(New Callback(AddressOf UpdateUI), TextBox_LocationNAME, values(i, 4))
TextBox_Type.Invoke(New Callback(AddressOf UpdateUI), TextBox_Type, values(i, 6))
TextBox_ABC.Invoke(New Callback(AddressOf UpdateUI), TextBox_ABC, values(i, 7))
TextBox_Railway.Invoke(New Callback(AddressOf UpdateUI), TextBox_Railway, values(i, 5))
TextBox_issue.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, values(i, 8))
TextBox_InspFROM.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspFROM, values(i, 9))
TextBox_InspTO.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspTO, values(i, 10))
TextBox_Total_Insp.Invoke(New Callback(AddressOf UpdateUI), TextBox_Total_Insp, values(i, 11))
TextBox_Date.Invoke(New Callback(AddressOf UpdateUI), TextBox_Date, values(i, 12))
TextBox_Year.Invoke(New Callback(AddressOf UpdateUI), TextBox_Year, values(i, 2))
TextBox_Lead_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_Lead_RSI, values(i, 15))
TextBox_2nd_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_2nd_RSI, values(i, 16))
TextBox_Letterofconcern.Invoke(New Callback(AddressOf UpdateUI), TextBox_Letterofconcern, values(i, 21))
TextBox_Prenotice.Invoke(New Callback(AddressOf UpdateUI), TextBox_Prenotice, values(i, 23))
TextBox_notice_order.Invoke(New Callback(AddressOf UpdateUI), TextBox_notice_order, values(i, 26))
TextBox_NAIAT.Invoke(New Callback(AddressOf UpdateUI), TextBox_NAIAT, values(i, 28))
TextBox_AMP.Invoke(New Callback(AddressOf UpdateUI), TextBox_AMP, values(i, 29))
TextBox_letterofwarning.Invoke(New Callback(AddressOf UpdateUI), TextBox_letterofwarning, values(i, 31))
TextBox_Comments.Invoke(New Callback(AddressOf UpdateUI), TextBox_Comments, values(i, 32))
TextBox_insp_type.Invoke(New Callback(AddressOf UpdateUI), TextBox_insp_type, values(i, 17))
row = row + 1
Exit For
End If
Next
For i = 1 To rg3.Rows.Count 'Range pour Inspjr
If rg3.Cells(i, 3).value = value Then
Dim values As Object(,) = rg3.Value
TextBox_RDIMS.Invoke(New Callback(AddressOf UpdateUI), TextBox_RDIMS, values(i, 19))
TextBox_RSIG.Invoke(New Callback(AddressOf UpdateUI), TextBox_RSIG, values(i, 18))
TextBox_LocationNAME.Invoke(New Callback(AddressOf UpdateUI), TextBox_LocationNAME, values(i, 4))
TextBox_Type.Invoke(New Callback(AddressOf UpdateUI), TextBox_Type, values(i, 6))
TextBox_ABC.Invoke(New Callback(AddressOf UpdateUI), TextBox_ABC, values(i, 7))
TextBox_Railway.Invoke(New Callback(AddressOf UpdateUI), TextBox_Railway, values(i, 5))
TextBox_issue.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, values(i, 8))
TextBox_InspFROM.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspFROM, values(i, 9))
TextBox_InspTO.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspTO, values(i, 10))
TextBox_Total_Insp.Invoke(New Callback(AddressOf UpdateUI), TextBox_Total_Insp, values(i, 11))
TextBox_Date.Invoke(New Callback(AddressOf UpdateUI), TextBox_Date, values(i, 12))
TextBox_Year.Invoke(New Callback(AddressOf UpdateUI), TextBox_Year, values(i, 2))
TextBox_Lead_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_Lead_RSI, values(i, 15))
TextBox_2nd_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_2nd_RSI, values(i, 16))
TextBox_Letterofconcern.Invoke(New Callback(AddressOf UpdateUI), TextBox_Letterofconcern, values(i, 21))
TextBox_Prenotice.Invoke(New Callback(AddressOf UpdateUI), TextBox_Prenotice, values(i, 23))
TextBox_notice_order.Invoke(New Callback(AddressOf UpdateUI), TextBox_notice_order, values(i, 26))
TextBox_NAIAT.Invoke(New Callback(AddressOf UpdateUI), TextBox_NAIAT, values(i, 28))
TextBox_AMP.Invoke(New Callback(AddressOf UpdateUI), TextBox_AMP, values(i, 29))
TextBox_letterofwarning.Invoke(New Callback(AddressOf UpdateUI), TextBox_letterofwarning, values(i, 31))
TextBox_Comments.Invoke(New Callback(AddressOf UpdateUI), TextBox_Comments, values(i, 32))
TextBox_insp_type.Invoke(New Callback(AddressOf UpdateUI), TextBox_insp_type, values(i, 17))
row = row + 1
Exit For
End If
Next
For i = 1 To rg4.Rows.Count 'Range pour Inspluc
If rg4.Cells(i, 3).value = value Then
Dim values As Object(,) = rg4.Value
TextBox_RDIMS.Invoke(New Callback(AddressOf UpdateUI), TextBox_RDIMS, values(i, 19))
TextBox_RSIG.Invoke(New Callback(AddressOf UpdateUI), TextBox_RSIG, values(i, 18))
TextBox_LocationNAME.Invoke(New Callback(AddressOf UpdateUI), TextBox_LocationNAME, values(i, 4))
TextBox_Type.Invoke(New Callback(AddressOf UpdateUI), TextBox_Type, values(i, 6))
TextBox_ABC.Invoke(New Callback(AddressOf UpdateUI), TextBox_ABC, values(i, 7))
TextBox_Railway.Invoke(New Callback(AddressOf UpdateUI), TextBox_Railway, values(i, 5))
TextBox_issue.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, values(i, 8))
TextBox_InspFROM.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspFROM, values(i, 9))
TextBox_InspTO.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspTO, values(i, 10))
TextBox_Total_Insp.Invoke(New Callback(AddressOf UpdateUI), TextBox_Total_Insp, values(i, 11))
TextBox_Date.Invoke(New Callback(AddressOf UpdateUI), TextBox_Date, values(i, 12))
TextBox_Year.Invoke(New Callback(AddressOf UpdateUI), TextBox_Year, values(i, 2))
TextBox_Lead_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_Lead_RSI, values(i, 15))
TextBox_2nd_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_2nd_RSI, values(i, 16))
TextBox_Letterofconcern.Invoke(New Callback(AddressOf UpdateUI), TextBox_Letterofconcern, values(i, 21))
TextBox_Prenotice.Invoke(New Callback(AddressOf UpdateUI), TextBox_Prenotice, values(i, 23))
TextBox_notice_order.Invoke(New Callback(AddressOf UpdateUI), TextBox_notice_order, values(i, 26))
TextBox_NAIAT.Invoke(New Callback(AddressOf UpdateUI), TextBox_NAIAT, values(i, 28))
TextBox_AMP.Invoke(New Callback(AddressOf UpdateUI), TextBox_AMP, values(i, 29))
TextBox_letterofwarning.Invoke(New Callback(AddressOf UpdateUI), TextBox_letterofwarning, values(i, 31))
TextBox_Comments.Invoke(New Callback(AddressOf UpdateUI), TextBox_Comments, values(i, 32))
TextBox_insp_type.Invoke(New Callback(AddressOf UpdateUI), TextBox_insp_type, values(i, 17))
row = row + 1
Exit For
End If
Next
For i = 1 To rg5.Rows.Count 'Range pour Inspted
If rg5.Cells(i, 3).value = value Then
Dim values As Object(,) = rg5.Value
TextBox_RDIMS.Invoke(New Callback(AddressOf UpdateUI), TextBox_RDIMS, values(i, 19))
TextBox_RSIG.Invoke(New Callback(AddressOf UpdateUI), TextBox_RSIG, values(i, 18))
TextBox_LocationNAME.Invoke(New Callback(AddressOf UpdateUI), TextBox_LocationNAME, values(i, 4))
TextBox_Type.Invoke(New Callback(AddressOf UpdateUI), TextBox_Type, values(i, 6))
TextBox_ABC.Invoke(New Callback(AddressOf UpdateUI), TextBox_ABC, values(i, 7))
TextBox_Railway.Invoke(New Callback(AddressOf UpdateUI), TextBox_Railway, values(i, 5))
TextBox_issue.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, values(i, 8))
TextBox_InspFROM.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspFROM, values(i, 9))
TextBox_InspTO.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspTO, values(i, 10))
TextBox_Total_Insp.Invoke(New Callback(AddressOf UpdateUI), TextBox_Total_Insp, values(i, 11))
TextBox_Date.Invoke(New Callback(AddressOf UpdateUI), TextBox_Date, values(i, 12))
TextBox_Year.Invoke(New Callback(AddressOf UpdateUI), TextBox_Year, values(i, 2))
TextBox_Lead_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_Lead_RSI, values(i, 15))
TextBox_2nd_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_2nd_RSI, values(i, 16))
TextBox_Letterofconcern.Invoke(New Callback(AddressOf UpdateUI), TextBox_Letterofconcern, values(i, 21))
TextBox_Prenotice.Invoke(New Callback(AddressOf UpdateUI), TextBox_Prenotice, values(i, 23))
TextBox_notice_order.Invoke(New Callback(AddressOf UpdateUI), TextBox_notice_order, values(i, 26))
TextBox_NAIAT.Invoke(New Callback(AddressOf UpdateUI), TextBox_NAIAT, values(i, 28))
TextBox_AMP.Invoke(New Callback(AddressOf UpdateUI), TextBox_AMP, values(i, 29))
TextBox_letterofwarning.Invoke(New Callback(AddressOf UpdateUI), TextBox_letterofwarning, values(i, 31))
TextBox_Comments.Invoke(New Callback(AddressOf UpdateUI), TextBox_Comments, values(i, 32))
TextBox_insp_type.Invoke(New Callback(AddressOf UpdateUI), TextBox_insp_type, values(i, 17))
row = row + 1
Exit For
End If
Next
End Sub