主题：多列表数据提取不重复值及计数

代码已经没有优化的空间了。如果数据多，慢，请看看

http://www.foxtable.com/webhelp/scr/0453.htm

http://www.foxtable.com/webhelp/scr/2218.htm

回复楼上，只有string才有join的功能，integer类型没有。

使用string类型和integer类型，效率上相差无几的。如果确实要用integer，你可以在循环的过程中，用一个变量把各个值组合起来最后显示变量。

1、添加足够多的行

Dim n = lst.count-tb.rows.count

If n > 0 Then tb.AddNew(n)

2、循环每一行赋值

For i as integer = 0 to lst.count-1

    ndr = tb.rows(i)

    ndr("市内_入围编号") = lst(i)

Next