Sub GetDb()

        Dim st As New Stopwatch

        st.Start()

        Using db As New ApiDBEntities

            Dim d = db.Table.Join(db.Table_Item,

                              Function(u) u.id,

                              Function(g) g.MainId,

                              Function(u, g) New With {

                              .姓名 = u.name，

                              .编号 = u.id}

                              )

            'Dim e = d.Where(Function(t) t.n <> 1)

            Dim f = d.ToList

            f.ForEach(Sub(c) Console.WriteLine("打印数据{0}", c.姓名))

            Console.WriteLine(d.ToString())

        End Using

        st.Stop()

        Console.WriteLine("消耗时间={0}", st.ElapsedMilliseconds)

    End Sub