匿名性のデータ出力について(Linq To Entities )
Dim con As New DB Dim getdata = (From A In con.IDList Group Join B In con.SyainList On A.社員コード Equals B.社員コード Into BList = Group From BL In BList.DefaultIfEmpty Where A.社員コード = CType(txtSyaID.Text, Integer) And B.年齢 >= CType(txtAeg.Text, Integer) Order By A.社員コード, BL.年齢 Select A.社員コード, BL.社員名, BL.年齢)
上記のデータを取り出したいときは下記のようにして取り出す必要がある。
For Each getdata1 In getdata data = getdata1.社員コード data = data & " " & getdata1.社員名 data = data & " " & getdata1.年齢 ListBox1.Items.Add(data) Application.DoEvents() Next
※A.社員コードではなく、getdata1.社員コードでした。(2016.09.12追記)
以上!