Discussion :

[stdebordeau]

pour éviter tout amalgame (mention resolu sur l'autre post) je relance la discussion ici.

j'effectue une requête linq sur une des tables de mon dataset (fortement typé bien sur)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim rq = From element as GesBourseDataset.TransacViewRow In GesBourseDataset.TransacView() _
Where Trim(element.StatuTrsc) = "En Attente" _
Select element.NomClt, element.CodeClt, element.CodeCpteClt, element.CodeTrsc, element.NomTitre, element.TypeTitre, element.TypeTrsc, element.StatuTrsc, element.DateTrsc, Score = DateDiff(DateInterval.Day, Now, element.DateTrsc) Order By Score Descending
For Each lgn In rq.ToList
GesBourseDataset.AttenteT.AddAttenteTRow(lgn.NomClt, lgn.CodeClt, lgn.CodeCpteClt, lgn.CodeTrsc, lgn.NomTitre, lgn.DateTrsc, lgn.TypeTrsc, lgn.StatuTrsc, lgn.Score)
Next

à l'exécution du For each, avant même d'en arriver à l'ajout des lignes, il me renvoie l'erreur nullexception comme quoi ma colonne "TypeTrsc" aurait des valeurs DbNull. ce qui du reste est vrai, mais ne doit pas constituer un problème.

une idée ?
je serai très heureux d'accéder à des cours, tuto ou autres qui me permettraient enfin de maitriser la bête (dataset typé)

[stdebordeau]

Bon j'ai fini par trouver après une journée d'acharnement
pour ceux que ça intéresse, voici le code équivalent qui marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim rq = From element In GesBourseDataset.TransacView.AsEnumerable _
Where (element.StatuTrsc = "En attente") _
Select NomClt = If(element.IsNomCltNull, Nothing, element.NomClt), element.CodeClt, element.CodeCpteClt, element.CodeTrsc, element.NomTitre, TypeTrsc = If(element.IsTypeTrscNull, Nothing, element.TypeTrsc), StatuTrsc = If(element.IsStatuTrscNull, Nothing, element.StatuTrsc), DateTrsc = If(element.IsDateTrscNull, Nothing, element.DateTrsc), Score = DateDiff(DateInterval.Day, Now, If(element.IsDateTrscNull, Now, element.DateTrsc)) Order By Score Descending
Dim rwa As GesBourse.GesBourseDataSet.AttenteTRow
For Each lgn In rq
rwa = GesBourseDataset.AttenteT.NewAttenteTRow
rwa.CodeClt = lgn.CodeClt
If lgn.NomClt = Nothing Then
rwa.SetNomCltNull()
Else
rwa.NomClt = lgn.NomClt
End If
rwa.CodeCpteClt = lgn.CodeCpteClt
rwa.CodeTrsc = lgn.CodeTrsc
rwa.NomTitre = lgn.NomTitre
If lgn.TypeTrsc = Nothing Then
rwa.SetTypeTrscNull()
Else
rwa.TypeTrsc = lgn.TypeTrsc
End If
If lgn.StatuTrsc = Nothing Then
rwa.SetStatuTrscNull()
Else
rwa.StatuTrsc = lgn.StatuTrsc
End If
If lgn.DateTrsc = Nothing Then
rwa.SetDateTrscNull()
Else
rwa.DateTrsc = lgn.DateTrsc
End If
rwa.ScoreT1 = lgn.Score
GesBourseDataset.AttenteT.AddAttenteTRow(rwa)
End If
Next