主题：同时搜索显示多条错误？

For Each t1 As Row In Tables("收购")
    t1("修改") = False
Next
For Each t11 As Row In Tables("销售")
    t11("修改") = False
Next

Dim g6 As New GroupTableBuilder("统计表10", DataTables("销售"))
g6.Groups.AddDef("年")
g6.Groups.AddDef("月")
g6.Groups.AddDef("日")
g6.Groups.AddDef("编号")
g6.Totals.AddDef("份数")
g6.Totals.AddDef("重量")
g6.Build()
For Each t1 As Row In Tables("收购")
    For Each t2 As Row In Tables("统计表10")
        If t1("编号") = t2("编号") Then
            t2("重量") = t1("重量") - t2("重量")
            t2("份数") = t1("头数") - t2("份数")
        End If
    Next
Next
For Each t1 As Row In Tables("收购")
    t1("修改") = True
Next
For Each t11 As Row In Tables("销售")
    t11("修改") = True
Next
DataTables("统计表10").DeleteFor("[重量] = 0 and [份数] = 0 ")
If Tables("统计表10").Rows.Count = 0 Then
    MessageBox.Show("没有错误!")
Else
    Dim dr As Row = Tables("统计表10").current()
    MessageBox.Show("请修改编号:" & dr("编号"))
End If
DataTables("统计表10").DataRows.Clear

如何将上面的搜索错误改回同时显示全部错误，如有10条同时显示10条？

上面代码当有10条错误时，只能显示一条错误，我想同时显示10条错误。如何做？

收购是主表、销售是关联表，关联列是编号，收购的一条数据对应几条销售数据，将销售表数据放入临时统计表，进行统计，当收购的一条数据与关联的销售数据不符时，显示错误编号，但上面的代码不能同时显示多条错误的编号，如何做？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:9月14日购销.rar

可以将修改提示改为数据表形式吗？

FOX表真神奇！

如何增大临时表字体、行距、列距？