Dim lst As New List(Of String) Dim lst1 As New List(Of String) For Each r As Row In Tables("表B").Rows lst.Add(r("第一列")) If lst1.Contains(r("第一列")) = False Then lst1.Add(r("第一列")) End If Next For i As Integer = 0 To lst1.Count - 1 Output.Show(lst1(i) & " : " & Functions.Execute("字符串个数",String.Join(",", lst.ToArray), lst1(i))) Next
加好友 
发短信
Post By：2014/5/6 8:18:00 [显示全部帖子]
