Me.grid.RowCount
CStr(Me.grid.RowCount)
Dim reqFichier = From fichier In _dataTableFichier
Where fichier.Field(Of String)("nom Utilisateur").Contains("BSG") = False And
fichier.Field(Of String)("Entrepôt") = "BSG"
Select New With
{
.nomUtilisateur = fichier.Field(Of String)("nom Utilisateur").ToUpper.Trim
}
Dim reqRH = From rh In _dataTableRH
Select New With
{
.nom = rh.Field(Of String)("Nom").ToUpper.Trim,
.prénom = rh.Field(Of String)("Prénom").ToUpper.Trim,
.PrenomNom = rh.Field(Of String)("PrenomNom").ToUpper.Trim
}
Dim reqResult = (From fichier In reqFichier
Select New With
{
.nom = fichier.nomUtilisateur
}
).AsEnumerable.Except(From rh In reqRH
Select New With
{
.nom = rh.PrenomNom
}).ToList()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
For Each f in FICHIER
For Each r in RH
Si correspondance exit For
Next
Si pas correspondance ajout dans un dataTable temporaire
Next