如何建立一个临时表并取出不重复值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

建立了一个TXT文本，需要建立一个临时表，在一列中并且取出不重复值。不知应该如何编写代码建立临时表

请老师费心帮助看下。

下面是我提取的文本文件

,'QA SOP 012
QC STP 019
QC STP 020
QC STP 044
QC STP 054
QC STP 020
QC STP 044
QC STP 054','QA SOP 012
QC STP 019
QC STP 020
QC STP 044
QC STP 054
QC STP 020
QC STP 044
QC STP 054','QA SOP 017
QC STP 001','QA SOP 017
QC STP 005','QC STP 028 ','QC STP 005','QC STP 018
QC STP 096
QC STP 102
QC STP 097
QC STP 014 ','QC STP 018
QC STP 096
QC STP 102
QC STP 097
QC STP 014','QC STP 018
QC STP 096
QC STP 102
QC STP 097
QC STP 014','QC STP 015
QC STP 084','QC STP 014','QC STP 018
QC STP 096
QC STP 102
QC STP 097
QC STP 014 ','QC STP 015
QC STP 084 ','QA SOP 012
QC STP 044 ','QC STP 015
QC STP 084
QC SOP 039 ','QC STP 005
QC STP 023
QC STP 083
QC STP 094
QC STP 106
QC STP 096
QC STP 097','NA','NA','NA','QC SOP 078','QC SOP 078 ','QC AVR 376','QC AVR 298','QC AVR 378','QC STP 038
QC STP 042
QC STP 046 ','QC STP 029
QC STP 030
QC STP 031
QC STP 033
QC STP 034
QC STP 036
QC STP 037
QC STP 039
QC STP 041
QC STP 045
QC STP 058
QC STP 064
QC STP 093
QC STP 107 ','QC SOP 099','NA','NA','NA','NA','QC CNR 296','QC CNR 296','QC CNR 296','QC CNR 296','QC CNR 296','QC CNR 296','QC CNR 098
QC CNR 296','QC CNR 098
QC CNR 296','QC CNR 098
QC CNR 296','QC CNR 098
QC CNR 296','QC CNR 290','PM SOP 073','PM SOP 073','RD BMA SOP 093','QC STP 003','QC STP 003','QC STP 003','QC STP 009
QC STP 016
QC STP 006
QC STP 083','QC STP 007
QC STP 095
QC STP 094','QC STP 007
QC STP 095
QC STP 094

[此贴子已经被作者于2019/12/22 14:49:41编辑过]

我是采用下面代码取得的TXT文本

Dim nms As String

For Each dr As DataRow In DataTables("设备验证文件").DataRows
           nms = nms & ",'" & dr("guocscwjbh") & "'"
Next
For Each dr As DataRow In DataTables("设备验证文件").DataRows
           nms = nms & ",'" & dr("guocscwjbh") & "'"
Next
For Each dr As DataRow In DataTables("设备验证文件").DataRows
           nms = nms & ",'" & dr("querbg") & "'"
Next
Dim str As String = DataTables("设备验证文件").GetComboListString("guocsrwjbh").Replace("|", ",'")
Output.Show(nms)
'Output.Show(str)

有人可以帮助我解决这个问题吗？

如何编写代码？

请帮助写一下，没有思路？

[此贴子已经被作者于2019/12/22 14:46:03编辑过]

因为在数据库表中，有的单元格有几个需要查找的编号，有的只有一个。格式及数量并不确定

我希望将每一个文件编号作为筛选该文件的索引。如，EM SOP 017这个文件编号，在另一个标准检索出相应的各个字段内容。

执行该指令：Dim str As String = DataTables("设备验证文件").GetComboListString("guocsrwjbh").Replace("|", ",'")
Output.Show(str)

得到结果还是有很多重复的：

,'EM SOP 005

EM SOP 017,'EM SOP 005

EM SOP 018,'EM SOP 005

EM SOP 019,'EM SOP 005

EM SOP 054,'EM SOP 007,'EM SOP 013

EM SOP 010

EM SOP 020

EM SOP 030,'EM SOP 027,'EM SOP 029

EM SOP 030

EM SOP 030 ,'EM SOP 045,'EM SOP 046 ,'EM SOP 051

EM SOP 047,'EM SOP 051

EM SOP 048,'EM SOP 051

EM SOP 052,'NA,'OP SOP 007,'OP SOP 011,'PM SOP 003

PM SOP 073,'PM SOP 004

PM SOP 077,'PM SOP 006

[此贴子已经被作者于2019/12/22 21:38:54编辑过]

执行代码：Dim lst As new List(of String)
Dim str As String = DataTables("设备验证文件").GetComboListString("guocsrwjbh").Replace(vbcr, "").Replace(vblf, "|").Replace("||", "|")
For Each s As String In str.Split("|")
If lst.Contains(s) = False Then lst.Add(s)
Next
Dim nms As String
nms = String.Join(",'",lst.ToArray)
nms = nms.Trim(",")
output.show(nms)
Tables("验证文件表").filter = "[文件编号] In (" & nms &")"

出现下述报警

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18
错误所在事件：
详细错误信息：
语法错误:“EM”运算符后缺少操作数。

筛选得到的文本：

'EM SOP 005'EM SOP 017'EM SOP 018'EM SOP 019'EM SOP 054'EM SOP 007'EM SOP 013 'EM SOP 010 'EM SOP 020'EM SOP 030'EM SOP 027'EM SOP 029'EM SOP 030 'EM SOP 045'EM SOP 046

正常应该筛选文本EM SOP 005

可是却出现上述报警

具体内容见附件。请费心帮助检查一下，如何解决检索问题。

主题：如何建立一个临时表并取出不重复值