主题：判断引用多行

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

 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

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

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

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

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

老师帮帮忙，实在懂不起，集合中提取数据来赋值

老师，不好意思，我没说清楚，是借用A表的数据，判断条件满足后，所有满足条件的多行，填充到表B里，也要想同的行数

If e.DataCol.Name = "第一列" AndAlso e.DataRow("第一列") = True Then
     Dim dr As DataRow = DataTables("表B").AddNew
     For Each dc As DataCol In DataTables("表B").DataCols
         dr(dc.Name) = e.DataRow(dc.Name)
     Next
End If

老师我选用的是这段代码，可是系统一下自动退出了

老师，我想要的结果在表D输入部件图号时，如果表A中有的话就全部借用表A中的全部数据，如果没有，在输入零件图号、零件名称、材质、规格如果表A 中有满足4项条件的就借用其他数据，没有就手工录入

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

点击浏览该文件:管理项目5.table

另外表D的内容要比表A 要多一些