以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同时搜索显示多条错误？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47443)
--  作者：发财
--  发布时间：2014/3/10 16:13:00
--  同时搜索显示多条错误？

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条？
--  作者：Bin
--  发布时间：2014/3/10 16:16:00
--  
没明白你的意思.
--  作者：发财
--  发布时间：2014/3/10 16:24:00
--  
上面代码当有10条错误时，只能显示一条错误，我想同时显示10条错误。如何做？
--  作者：Bin
--  发布时间：2014/3/10 16:29:00
--  

没有看明白

Dim dr As Row = Tables("统计表10").current()
    MessageBox.Show("请修改编号:" & dr("编号"))


这个DR哪里来?




DataTables("统计表10").DataRows.Clear
你不管3721最后全部清除了又是什么意思
--  作者：发财
--  发布时间：2014/3/10 16:41:00
--  
收购是主表、销售是关联表，关联列是编号，收购的一条数据对应几条销售数据，将销售表数据放入临时统计表，进行统计，当收购的一条数据与关联的销售数据不符时，显示错误编号，但上面的代码不能同时显示多条错误的编号，如何做？
--  作者：Bin
--  发布时间：2014/3/10 16:43:00
--  
请上例子.
--  作者：发财
--  发布时间：2014/3/10 16:53:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:9月14日购销.rar
--  作者：有点甜
--  发布时间：2014/3/10 20:12:00
--  

If Tables("统计表10").Rows.Count = 0 Then
    MessageBox.Show("没有错误!")
Else
    Dim dr As Row = Tables("统计表10").current()
    MessageBox.Show("请修改编号:" & dr("编号"))
End If

 

改为：

 

If Tables("统计表10").Rows.Count = 0 Then
    MessageBox.Show("没有错误!")
Else
    MessageBox.Show("请修改编号:" & datatables("统计表10").GetComboListString("编号")）
End If
--  作者：发财
--  发布时间：2014/3/11 9:12:00
--  
可以将修改提示改为数据表形式吗？
--  作者：Bin
--  发布时间：2014/3/11 9:13:00
--  
tables("窗口1_Table1").datasourc=datatables("统计表10")