1 2 3 4 5 6 7 8 9 10
| Dim queryn1 = (From enr_dt In dt_enum, enr_wportemb_enum In wportem_enum _
Where (enr_wportemb_enum.Field(Of String)("cod_port").ToString.Trim = enr_dt.Field(Of String)("cod_port").ToString.Trim _
And enr_dt.Field(Of Boolean)("franchise") = True And enr_dt.Field(Of Int32)("type_cach") = 1) _
Order By enr_wportemb_enum.Field(Of String)("cod_port").ToString.Trim _
Group By cod_exp = enr_dt.Field(Of String)("cod_exp").ToString.Trim, _
cod_port = enr_dt.Field(Of String)("cod_port").ToString.Trim, _
lib_port = enr_dt.Field(Of String)("lib_port").ToString.Trim, _
raison_exp = enr_dt.Field(Of String)("raison_exp").ToString.Trim _
Into nblot = Count(enr_dt.Field(Of String)("nolot").ToString.Trim) _
Select cod_exp, cod_port, lib_port, raison_exp, nblot) |
Partager