表与表之间列值对比问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim strs() As String= Tables("表A").Rows(0)("第一列").Split(",")

Dim strList As New Dictionary(of String,Integer)

For i As Integer=0 To strs.length-1

If Not strList.ContainsKey(strs(i)) Then

strList.Add(strs(i),0)

End If

For i As Integer=0 To strs.length-1

strList(strs(i))=strList(strs(i))+1

Dim strs2() As String= Tables("表B").Rows(0)("第一列").Split(",")

Dim strList2 As New Dictionary(of String,Integer)

For i As Integer=0 To strs2.length-1

If Not strList2.ContainsKey(strs2(i)) Then

strList2.Add(strs2(i),0)

End If

For i As Integer=0 To strs2.length-1

strList2(strs2(i))=strList2(strs2(i))+1

For Each item As String In strList.Keys

Dim dr As Row= Tables("表C").AddNew()

dr("第一列")=strList(item)-strList2(item)

搞定

以上代码少点重复代码。可以考虑写成函数便于维护修改减少代码冗余。

看楼上已经帮你写好了

Dim tb As Table = Tables("表A")

Dim strList As New Dictionary(of String,Integer)

For i As Integer=0 To tb.Rows.Count-1

If Not strList.ContainsKey(tb.Rows(i)("第一列")) Then

strList.Add(tb.Rows(i)("第一列"),0)

End If

For i As Integer=0 To tb.Rows.Count-1

strList(tb.Rows(i)("第一列"))=strList(tb.Rows(i)("第一列"))+1

Dim tb2 As Table= Tables("表B")

Dim strList2 As New Dictionary(of String,Integer)

For i As Integer=0 To tb2.Rows.Count-1

If Not strList2.ContainsKey(tb2.Rows(i)("第一列")) Then

strList2.Add(tb2.Rows(i)("第一列"),0)

End If

For i As Integer=0 To tb2.Rows.Count-1

strList2(tb2.Rows(i)("第一列"))=strList2(tb2.Rows(i)("第一列"))+1

Tables("表C").Cols("第一列").Width="200"

For Each item As String In strList.Keys

Dim dr As Row= Tables("表C").AddNew()

If strList2.ContainsKey(item) Then

dr("第一列")="表A比表B多了" & (strList(item)-strList2(item)) & "个" & item

Else

dr("第一列")="表B不存在" & item

End If

复制到命令窗口执行即可

主题：表与表之间列值对比问题