Evil 域

关系A

A	111
A	222
B	333
C	444

关系B

A	123
C	456

根据第一列做迪卡尔积得到4*2行结果：

A	111	A	123	<- A1+B1
A	222	A	123	<- A2+B1
B	333	A	123	<- A3+B1
C	444	A	123	<- A4+B1
A	111	C	456	<- A1+B2
A	222	C	456	<- A2+B2
B	333	C	456	<- A3+B2
C	444	C	456	<- A4+B2

筛选出列相同的结果：

A	111	A	123
A	222	A	123
C	444	C	456

再一句话，两个表中找出你感兴趣部分相同的记录并拼接起来。好，让我们来实战演习一把。
本系列一开始就引入了一个Notebook类，用来抽象笔记本电脑（具体参考VB 9.0新特性之局部类型推理（Local Type Inference） 一文中对Notebook类的定义）。为了形成两个关系，现在假定笔记本要暑促——就是打折销售啦。但是，今天这个打折，明天那个打折，折扣又不定，我们把它放到一个字典中来管理：

1        'Create a dictionay act like another table
2        Dim cutPricesDict = New Dictionary(Of String, Double)
3        cutPricesDict.Add("Lenovo", 0.8)
4        cutPricesDict.Add("DELL", 0.75)

1        'All cut off laptops
2        Console.WriteLine(vbCrLf & "All cut off laptops")
3        Dim allCutOffs = From aLaptop In nbStorage, cutPriceObj In cutPricesDict _
4                       Where aLaptop.Brand = cutPriceObj.Key _
5                       Select aLaptop
6
7        For Each laptop In allCutOffs
8            Console.WriteLine(laptop.ToString())
9        Next

All cut off laptops
Laptop Lenovo(X300) is 1.8kg and at the price of 27000
Laptop DELL(D630) is 2.5kg and at the price of 7300

 1'All cut off laptops
 2        Console.WriteLine(vbCrLf & "All cut off laptops")
 3        'Dim allCutOffs = From aLaptop In nbStorage, cutPriceObj In cutPricesDict _
 4        '               Where aLaptop.Brand = cutPriceObj.Key _
 5        '               Select aLaptop
 6        Dim allCutOffs = From aLaptop In nbStorage Join cutPriceObj In cutPricesDict _
 7                        On aLaptop.Brand Equals cutPriceObj.Key _
 8                        Select aLaptop
 9
10        For Each laptop In allCutOffs
11            Console.WriteLine(laptop.ToString())
12        Next
13