vb.net 如何与提取Excel中的数据

直接去重放到COMBOBOX里，这个我要看看，好久以前用过，不知道放那里了，有点忘了。

创新互联公司主营东山网站建设的网络公司,主营网站建设方案,app开发定制,东山h5重庆小程序开发搭建,东山网站营销推广欢迎东山等地区企业咨询

如果做到辅助列，先给这一列去重，再放到COMBOBOX里。

Dim r As Integer

Dim arr As Variant

r = Sheets("控件二").Cells(65536, 1).End(xlUp).Row

arr = Sheets("控件二").Range("A1:H" r)

ComboBox1.List = arr

试试这个，去重的我再找找。

VB.Net去除数组中重复的字符的元素？

比如数组a。里面有5个值，其中有3个是重复的？

如果这样的话，很好办哦。

新建一个数组b，然后遍历要去除的数组a，

从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，

否则就放入数组b，直到循环结束。

select * from 查询结果去重并排序

你第二和第三列是不重复的啊,如果你要去除重复,可以在有重复的列前加distinct

例如,select distinct fldD from table

vb.net去掉重复数组怎么做？

Dim array1() As String

Dim array2() As Boolean

Dim i As Integer

Dim j As Integer

Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"

array1 = Split(str1, ",")

str1 = ""

ReDim array2(UBound(array1))

For i = 0 To UBound(array1)

array2(i) = False

Next

For i = 0 To UBound(array1) - 1

If array2(i) = False Then

For j = i + 1 To UBound(array1)

If array1(i) = array1(j) And array2(j) = False Then

array2(j) = True

End If

Next j

End If

Next i

For i = 0 To UBound(array1)

If array2(i) = False Then

str1 = str1 array1(i) ","

End If

Next i

If str1 "" Then

str1 = Strings.Left(str1, Len(str1) - 1)

End If

新闻名称：vb.net去重 vbnet datatable去重
文章位置：http://chengdu.cdxwcx.cn/article/dddpgcd.html