如何把1个字段的内容分解到多个字段中

才青川　发表于：2011-01-17 16:28:55 　

如下

A字段内容如下

123*456*566*567*345

我想让查出的结果如下所现

a b c d e

123 456 566 567 345

能否实现

煮江品茶发表于：2011-01-17 19:04:16

设：

dim A

A=Split("123*456*566*567*345","*")

则：

A(0)="123"

A(1)="456"

A(2)="566"

A(3)="567"

A(4)="345"

煮江品茶发表于：2011-01-17 19:18:30

在查询中使用则可先写一个自定义函数：

Public Function 数组(str As String) As Variant
Dim A
A = Split(str, "*")
数组 = A
End Function

然后在查询中使用这个函数：

select *,数组([某字段])(0) as A,数组([某字段])(1) as B,数组([某字段])(2) as C,数组([某字段])(3) as D from 表名称

云中老鼠发表于：2011-01-18 17:28:11

用excel分拆单元格的功能不是更好——减少自己编程，用别人已经建立好的模块。

总记录：3篇页次：1/1 9 1 :

Access交流中心