- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何按顺序，把重复的号码提取出来 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112878)
-- 发布时间：2018/1/4 15:45:00
-- 如何按顺序，把重复的号码提取出来
如何从第一行，将连着几个相同的的号码提取出来，放到一个新表的第一列
此主题相关图片如下：按顺序提取.jpg
-- 发布时间：2018/1/4 15:50:00
--
提取不重复，参考
For Each s As String In DataTables("表A").GetValues("第一列")
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = s
Next
-- 发布时间：2018/1/4 16:26:00
--
GetValues，提取不重复的数据，好像是A-Z排下来，不能按原来的顺序排下来。代码运行的结果，就像表B那样。而且有空行，不停重复。
可以做到像表C那样吗
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2018/1/4 16:43:00
--
代码不能写到datacolchanged事件，单独做一个按钮运行。
For Each s As String In DataTables("表A").GetValues("第一列", "第一列 is not null", "_Identify")
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = s
Next
--------------
For Each s As String In DataTables("表A").GetValues("第一列", "第一列 is not null", "_Identify")
Dim ndr As DataRow = DataTables("表B").Find("第一列 = \'" & s & "\'")
If ndr Is Nothing Then
ndr = DataTables("表B").AddNew
ndr("第一列") = s
End If
Next