こんにちは。

追加で質問があります。

SekyuView に種類のフィールドを加えた場合の
Where条件の記述の仕方を教えて下さい。

比較する値は
変数wSHURUIに代入されています。

Where条件追加(２)を試すとビルドエラーは発生しないのですが、
条件の記述として正しいのかどうか不安です。

Where条件で比較する値が変数に代入されているときの
記述の仕方を教えて下さい。

よろしくお願いします。

◆SekyuView 
伝票番号  日付  商品名  今回請求額  種類
245804     27     Ａ          840   保険　
245804     27     Ｂ          840   保険
245804     27     Ｃ          840   保険
245805     27     Ａ          1260  保険
245805     27     Ｄ          1260  保険
245806     27     Ｅ          3000  自費

◆希望の結果
'wSHURUIが保険の場合
27日　2100円

◆Where条件追加(１)
'この場合ビルドエラーが発生します
Dim q = From r As DataRowView In SekyuView Select _ 
        伝票番号 = CInt(r("伝票番号")), 日付 = CInt(r("日付")), 今回請求額 = CInt(r("今回請求額")) _ 
        Where r.種類 = wSHURUI _
        Distinct Group 今回請求額 By 日付 Into 今回請求額 = Sum() 

◆Where条件追加(２)
'Selectの前にWhere条件を追加
Dim q = From r As DataRowView In SekyuView Where r.Item("種類") = wHOKEN Select _ 
        伝票番号 = CInt(r("伝票番号")), 日付 = CInt(r("日付")), 今回請求額 = CInt(r("今回請求額")) _ 
        Distinct Group 今回請求額 By 日付 Into 今回請求額 = Sum()