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

改变一下函数，先将分号替换成逗号，然后再按原来的方法即可。函数如下：

Function fj(xh, zf) '分解函数，调用方式：fj(序号,要分解的字符串)
Dim p1, p2, i, j
p1 = zf
j = InStr(1, Nz([p1]), ";")
While j > 0 '该循环将分号替换成逗号
 p1 = Mid(Nz(p1), 1, j - 1) & "," & Mid(p1, j + 1)
 j = InStr(1, Nz([p1]), ";")
Wend
fj = Mid(Nz(p1), 1, InStr(1, Nz([p1]), ",") - 1) '得到第一部分字符
p2 = Mid(Nz(p1), InStr(1, Nz([p1]), ",") + 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

点击下载此附件