JOINについて(Linq To Entities )

JOINについて今回は書きたいと思います。
ただ、あまりいい書き方では無いかもしれません。

まずは検索から

Dim con As New DATABASS
Dim JoinList = con.AAA.Join(con.BBB, Function(x) x.ID, _
                     Function(y) y.ID, _
                     Function(x, y) New With { _
                         Key .ID = x.ID, _
                         Key .年齢 = x.年齢 _
                         Key .名前 = y.名前, _
                         Key .部署 = y.部署, _
                     }) _
                    .Where(Function(x) CType(x.ID >= 30 And _
                                             x.年齢 >= 50), Boolean)) _
                    .OrderBy(Function(x) x.ID) _
                    .ThenBy(Function(x) x.年齢)

「Function(y) y.ID,」の箇所ですが、Ctrl + Spaceで予測変換しても正しく出てくれないので自分で手打ちしました。
その御蔭で結構な時間悩んでましたね(´・ω・｀)

出力はいつもと同様ですね

For Each LoopData In JoinList
    GetListData = String.Empty
    GetListData = GetListData & clsString.SetSpace(CType(LoopData.ID, String), 5, clsString.emLR.Left) & " "
    GetListData = GetListData & clsString.SetSpace(LoopData.年齢, 3, clsString.emLR.Right) & " "
    GetListData = GetListData & clsString.SetSpace(CType(LoopData.名前, String), 20, clsString.emLR.Left) & " "
    GetListData = GetListData & clsString.SetSpace(CType(LoopData.部署, String), 10, clsString.emLR.Right)
    lstData.Items.Add(GetListData)
Next

なんだかんだで、使い方はわかってきたのですが本当にこれでいいのか！？って言う保証は無いです、、、

以上。