[求助]多值列拆分成单行失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

没错，1295只是巧合而已，可以增删一些数据试试。

不过我更喜欢用以下代码

Dim lst As New List(Of String)

For Each dr As DataRow In DataTables("表A").Datarows

lst.AddRange(dr.Lines("第一列"))

'Output.Show (lst.Distinct.Count)

DataTables("多值列拆分成单行").DataRows.Clear

DataTables("多值列拆分成单行").StopRedraw

For Each s As String In lst.Distinct

Dim dr As DataRow = DataTables("多值列拆分成单行").AddNew

dr("第二列") = s

DataTables("多值列拆分成单行").ResumeRedraw

主题：[求助]多值列拆分成单行失败