如何将《查询1》里字段的记录按逗号分开成多个字段

设计一个函数：

Function fj(xh, zf) '分解函数，调用方式：fj(序号,要分解的字符串)
Dim p2, i
fj = Mid(Nz(zf), 1, InStr(1, Nz([zf]), ",") - 1) '得到第一部分字符
p2 = Mid(Nz(zf), InStr(1, Nz([zf]), ",") + 1) '保留剩余字符
For i = 2 To xh
 If InStr(1, Nz([p2]), ",") > 0 Then
  fj = Mid(Nz(p2), 1, InStr(1, Nz([p2]), ",") - 1) '得到下一部分字符
  p2 = Mid(Nz(p2), InStr(1, Nz([p2]), ",") + 1) '保留剩余字符
 Else
  fj = p2
  p2 = ""
 End If
Next i
End Function

在查询中调用f1:fj(1,[bb]),f2: fj(2,[bb])...依次类推就可实现你所要的功能，见附件。

点击下载此附件