主题：判断引用多行

老师，之前做过判断表达式，现在我想引用满足条件的多行？代码怎么写呢？

有具体的问题,才有具体的答复,泛泛而问很难帮上你.

 If e.DataCol.Name = "产品编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("产品").Find("编号 = " & "'" & e.DataRow("产品编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If

这个是判断后引用一行，我想引用多行满足前面条件的的数据

把FInd 换成 select  http://www.foxtable.com/help/topics/0400.htm

If e.DataCol.Name = "第一列" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("表A").Select("第一列 = " & "'" & e.DataRow("第一列") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("第二列")= dr("第二列")
        e.DataRow("第三列")= dr("第三列")
        e.DataRow("第四列")= dr("第四列")
    End If
End If

不可以啊

请看清楚帮助例子,你选择出来的是行集合,多行. 并不是单一的行

If e.DataCol.Name = "第一列" Then '发生变化的是产品编号吗?
      Dim drs As List(Of DataRow)
    drs = DataTables("表A").Select("第一列 = " & "'" & e.DataRow("第一列") & "'" )
   For Each dr As DataRow In drs
        e.DataRow("第二列")= dr("第二列")
        e.DataRow("第三列")= dr("第三列")
        e.DataRow("第四列")= dr("第四列")
   Next
End If

老师，我修改了一下，可能哪里有点问题，只会借用最后一行

If e.DataCol.Name = "第一列" Then '发生变化的是产品编号吗?
      Dim drs As List(Of DataRow) '定义个行的集合
    drs = DataTables("表A").Select("第一列 = " & "'" & e.DataRow("第一列") & "'" )'把查询到的行放到drs这个集合去,此时如果有查询到的行,都存在这个集合中了.
   For Each dr As DataRow In drs   '循环遍历你查询引用到的所有行.

老师那后面的代码怎么写？集合我没懂。麻烦老师了