没有问题,用split拆分:
http://www.foxtable.com/help/topics/1338.htm
http://www.foxtable.com/help/topics/0245.htm
代码类似:
Dim Multi As String = Tables("表A").Current("第一列")
Dim Values() As String
multi = multi.Replace(vbcr,vblf)
Values = Multi.split(vblf)
For Each val As String In values
If val > "" Then
Output.Show(val)
End If
Next