主题：关于提取备注列不重复字段的问题

大红袍老师

   

        我现在的数据库里有个表，表的行数比较多，大概40万行左右。表里有个备注列。备注列的内容是分 ：号把相关的元素分格开  有没有好的方法 取得这个列的不重复的元素。

 

比如  第一列的内容为：A:F:G:H     第二列的内容为：A:B:H:Z    多谢！

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76784&skin=0

 

 

大红袍老师

 

是我写错了。和想要的和你的例子有点不一样。比如下表   假如我的备注列的  名称是：项目

                                  项目

第一行：             A:N:K:B:V:C

第二行：            A:B:Y:C:K:J:F

第三行：           B:C:H:U:I:K:F

第四行：         K:A

.

.

.

   因为行数很多，如果少的话把它们Load出来，然后再用集全处理，得至少不重复的项目：A|B|C|K .....   

 

但行数太多了，有没有什么好方法可以得到。多谢！

 

 

 

一样的意思。

 

你可以用sqlcommand查询临时表dt，然后循环每一行。

 

必须循环每一行内容，才能得到结果的。

Dim cmd As New SQLCommand cmd.ConnectionNam e = "" ‘复制后请消除关键字中的空格 cmd.CommandText = "Selec t Max([_Identify]) Fro m {表A} Where [第九列] Is Not Null" ‘复制后请消除关键字中的空格 Dim cnt As Integer = cmd.ExecuteScalar Dim lst As New List(Of String) Dim str As String Dim dt As DataTable For i As Integer = 1 To cnt     cmd.CommandText = "Selec t [第九列] Fro m {表A} Where [_Identify] = " & i ‘复制后请消除关键字中的空格     dt = cmd.ExecuteReader     If dt.DataRows.Count > 0 Then         str = dt.DataRows(0)("第九列")         For Each s As String In str.Split(":")             If lst.Contains(s) = False Then                 lst.Add(s)             End If         Next     End If Next str = "" lst.Sort For i As Integer = 0 To lst.Count - 1     str + = lst(i) & "|" Next Output.Show(str.Trim("|"))