​一、DLookUp函数介绍

1. DLookUp函数的用途：可以用于从指定集合(一个域)中获取符合条件的特定字段的值。

2. DLookUp函数的格式为：DLookUp( expr , domain , [criteria] )

其中：

expr 为字段名，或以字段名为基础的表达式字符串

domain 为记录集，可以是表名，也可以是不需要参数的选择(联合)查询

[criteria] 为取值范围，即数据的限定条件

3. DLookUp函数最终的运行结果为：domain记录集中，符合[criteria](范围)条件的，expr字段的值或基于expr字段值的表达式的运算结果。

---

例题：

表[学生]中有[学号]和[姓名]2个字段，其中[学号]为唯一主键，现要求获取表[学生]中[学号]为“XS001”的学生的[姓名]

解答：DLookUp("姓名","学生","学号= 'XS001' ")

---

二、DLookUp函数中的SQL查询逻辑

通过对DLookUp函数的运算逻辑进行分析，我们可以将DLookUp函数中的各个参数转化为SQL查询语句的构成部分。

其中：

expr 为SQL语句的 SELECT 部分，即指定的唯一字段

domain 为SQL语句的 FROM 部分，即选定的记录集(表来源)

[criteria] 为SQL语句的 WHERE 部分，即特定的数据范围

如此一来，上文中例题的DLookUp语句则可以理解为以下SQL语句：

SELECT 姓名 FROM 学生 WHERE 学号= "XS001"

---

当然，这是一种简单化的理解。假设表[学生]中的[学号]不是唯一主键的情况下呢？也就是说，可能存在[学号]相同的多个[姓名]，但是DLookUp函数又必须只返回一个值，这种情况是如何处理的？

微软在Access中关于DLookUp函数的处理逻辑是返回第一个值。

因此，上述SQL语句可以进一步完善为：

SELECT TOP 1 姓名 FROM 学生 WHERE 学号= "XS001"

转化为通用格式，则是：

DLookUp(expr, domain, [criteria])

等价于

SELECT TOP 1 expr FROM domain WHERE [criteria]

---

三、将SELECT子查询转化为DLookUp运算结果的VBA逻辑

基于DLookUp函数中的SQL查询逻辑分析，我们可以逆向推导微软在将VBA封装进Access中时，关于DLookUp函数的运算过程如下：

Public Function DLookUp(ByVal expr As String, ByVal domain As String, ByVal criteria As String) As Variant

On Error GoTo DLookUp_err

Dim SQL As String, rst

SQL = "SELECT TOP 1 " & expr & " FROM " & domain & " WHERE " & criteria

Set rst = CurrentDb.OpenRecordset(SQL)

DLookUp = rst(expr)

Exit Function

DLookUp_err:

DLookUp = "#错误"

End Function

---

四、DLookUp函数的发散运用

在Access数据库中，微软通过VBA封装DLookUp函数为我们提供了获取SELECT子查询语句结果的快捷方式。

而在SQL Server等其他数据库中没有DLookUp函数可以使用，虽然可以使用SELECT子查询的方式来解决，如此一来在编写SQL查询时，SQL语句将会显得十分冗长和复杂。

但基于上文分析，我们已经掌握了将SELECT子查询语句转化为DLookUp函数运算结果逻辑，据此我们在VB.Net、C++、ASP、PHP等程序语言中，其实可以自行封装一个类DLookUp函数，在连接SQL Server(或其他数据库)时方便调用，简化SQL语句。