Dim listofhost As List(Of Host) = (From d In datasetIDMON.Tables("HOSTS").Rows Select New Host With { .TRIGRAMME = d.TRIGRAMME, .Client = d.Client, .Host = d.Host, .Planning = d.Planning }).ToList()
Dim hosts As DataTable = datasetIDMON.Tables("HOSTS") Dim services As DataTable = datasetIDMON.Tables("SERVICES") Dim query = _ From host In hosts.AsEnumerable() _ Join service In services.AsEnumerable() _ On host.Field(Of String)("Host") Equals _ service.Field(Of String)("Host") _ Select New With _ { _ .Trigramme = host.Field(Of String)("TRIGRAMME"), _ .Client = host.Field(Of String)("Client"), _ .NameService = service.Field(Of String)("Nom du service"), _ .PlanningGlobal = host.Field(Of String)("PLANNING"), _ .PlanningService = service.Field(Of String)("PLANNING") _ } ' Test pour contrôle MessageBox.Show(CStr(query.Count)) For Each line In query MessageBox.Show(line.Trigramme & Environment.NewLine & _ line.Client & Environment.NewLine & _ line.NameService & Environment.NewLine & _ line.PlanningGlobal & Environment.NewLine & _ line.PlanningService) Next
j'ai l'erreur
Une exception non gérée du type 'System.MissingMemberException' s'est produite dans Microsoft.VisualBasic.dll
Informations supplémentaires : Le membre public 'TRIGRAMME' du type 'DataRow' est introuvable.
host.Field(Of String)("TRIGRAMME")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' Jointure des deux tables Dim hosts As DataTable = datasetIDMON.Tables("HOSTS") Dim services As DataTable = datasetIDMON.Tables("SERVICES") Dim query = _ From host In hosts.AsEnumerable() _ Join service In services.AsEnumerable() _ On host.Field(Of String)("Host") Equals service.Field(Of String)("Host") _ Where checkPlanning(host.Field(Of String)("PLANNING"), service.Field(Of String)("PLANNING")) = True _ Select New With _ {.Client = host.Field(Of String)("TRIGRAMME") & " - " & host.Field(Of String)("Client"), _ .Serveur = host.Field(Of String)("Host"), _ .Service = service.Field(Of String)("Nom du service"), _ .PlanningGlobal = host.Field(Of String)("PLANNING"), _ .PlanningService = service.Field(Of String)("PLANNING") _ } ' Remplissage du DataGridView For Each row In query With DataGridView1.Rows .Add(row.Client, row.Serveur, row.Service, row.PlanningGlobal, row.PlanningService) End With Next
Datagridview1.Datasource = Queralh
Dim query = _ From host In hosts.AsEnumerable() _ Join service In services.AsEnumerable() _ On host.Field(Of String)("Host") Equals service.Field(Of String)("Host") _ Where checkPlanning(host.Field(Of String)("PLANNING"), service.Field(Of String)("PLANNING")) = True _ Select New With _ {.Client = host.Field(Of String)("TRIGRAMME") & " - " & host.Field(Of String)("Client"), _ .Serveur = host.Field(Of String)("Host"), _ .Service = service.Field(Of String)("Nom du service"), _ .PlanningGlobal = host.Field(Of String)("PLANNING"), _ .PlanningService = service.Field(Of String)("PLANNING") _ } ' Initialisation du controle DataGridView With DataGridView1 .ColumnCount = 5 .Columns(0).Name = "Client" .Columns(1).Name = "Equipement" .Columns(2).Name = "Nom du service" .Columns(3).Name = "Planning Global de la fiche ID-Mon" .Columns(4).Name = "Planning du service" .Columns(1).Width = 200 .Columns(2).Width = 200 .Columns(3).Width = 200 .Columns(4).Width = 200 End With ' Remplissage du DataGridView DataGridView1.DataSource = query