Dim a As Stringa = CurrentTable.Current("第一列")Dim s() As String = a.Split(vblf)For i As Integer = 0 To s.Length-1Output.Show(s(i))Next