以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  满足某条件的EXCEL合并  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122920)
--  作者：15960375892
--  发布时间：2018/8/4 16:07:00
--  满足某条件的EXCEL合并
求助各位大神：
“合并1个EXCEL表格，判断某列的值等于Lable1时，将满足该值的数据进行合并”，这个代码要怎么写？
--  作者：15960375892
--  发布时间：2018/8/4 17:07:00
--  
自己顶一下
--  作者：有点蓝
--  发布时间：2018/8/4 17:12:00
--  
参考：http://www.foxtable.com/webhelp/scr/2334.htm

合并到哪里？标签值合并到execl里？
--  作者：15960375892
--  发布时间：2018/8/4 17:18:00
--  
将EXCEL表格中与标签值相等的数据合并到数据表内
--  作者：15960375892
--  发布时间：2018/8/4 17:21:00
--  
这个链接的内容我也看了，但是有点不一样，判断EXCEL表格指定列的值与标签相同的代码要怎么写，就是要加1个筛选的条件，筛选出与标签值相等的行再导入
--  作者：有点蓝
--  发布时间：2018/8/4 17:29:00
--  

Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    If bh = e.Form.controls("Lable1").text
        Dim dr As DataRow = DataTables("订单").Find("编号 = \'" & bh & "\'")
        If dr Is Nothing Then \'如果不存在同编号的订单
            dr =  DataTables("订单").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("订单").ResumeRedraw()
--  作者：15960375892
--  发布时间：2018/8/4 17:54:00
--  
还是不行，我把附件挂上来，你帮我看看，多谢了
--  作者：有点甜
--  发布时间：2018/8/5 22:23:00
--  
以下是引用15960375892在2018/8/4 17:54:00的发言：
还是不行，我把附件挂上来，你帮我看看，多谢了

 

请上传具体附件测试。