如何分割查询

cgsilicone

可以用查询实现，ACCESS的查询能力超乎想像的强大。
如果备注中的列数固定就非常简单，直接做个联合查询就可以了。（就不举例了）
如果备注中的列数不固定，做个分割函数，再创建最大列数的联合查询就可以了。
具体如下：
SELECT 订单表.订单号, 分割(备注,0) AS 备注1
FROM 订单表 where 分割(备注,0)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,1)
FROM 订单表 where 分割(备注,1)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,2)
FROM 订单表 where 分割(备注,2)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,3)
FROM 订单表 where 分割(备注,3)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,4)
FROM 订单表 where 分割(备注,4)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,5)
FROM 订单表 where 分割(备注,5)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,6)
FROM 订单表 where 分割(备注,6)<>""
UNION ALL SELECT 订单表.订单号, 分割(备注,7)
FROM 订单表 where 分割(备注,7)<>"";

Public Function 分割(待分割数据, 数据所在列数) As String
     数据数组 = Split(待分割数据, "，")
    If 数据所在列数 > UBound(数据数组) Then
        分割 = ""
    Else
        分割 = 数据数组(数据所在列数)
    End If
End Function