主题：求助：表事件中代码错误

只有：采购进货（与采购订单关联）有，定额编码，列。

采购订单，与采购进货，有关联。

这个代码，错在哪里？
Tables("采购订单").Filter = "dr.GetParentRows"
提示错误。
BeforeDeleteDataRow 表事件中：
全部代码：
Dim drs As List (of DataRow) = DataTables("采购进货").Select("定额编码 = '" & e.DataRow("定额编码") & "' ")
If drs.Count > 0 Then
    Dim result As DialogResult = MessageBox.Show("此材料已被采购进货录入,是否删除对应采购进货明细后再删除本条材料?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
    If result = dialogresult.no Then
        e.Cancel = True
    Else
        e.Cancel = True
        For Each dr As DataRow In drs
            Tables("采购订单").Filter = "dr.GetParentRows"
            Tables("采购订单").Sort = "进货日期 DESC"
            MainTable =Tables( "采购订单")
            Forms("采购订单").Open
        Next
    End If
End If
情况是这样的，我有：材料，采购订单，采购进货（即：订单明细）
采购订单，与采购进货，通过：定额编码，关联表；
材料，表与其它无关联。能过：定额编码，用表代码自动输入到其它表的。
我现在想，当材料表删除一条材料时，查找：采购进货有没有已经输入这条材料。如果有，则把含量有这些采购进货明细的采购订单，筛选出来。显示给操作者。 

  For Each dr As DataRow In drs
            Tables("采购订单").Filter = " 进货批次 = '" & dr("进货批次") & "'"
        Next
为什么，这条代码，只找出一行呢？（符合条件的行，不止一行）

全部代码是：
Dim drs As List (of DataRow) = DataTables("采购进货").Select(" 定额编码 = '" & e.DataRow("定额编码") & "' ")
If drs.Count > 0 Then
    Dim result As DialogResult = MessageBox.Show("此材料已被采购进货录入,是否删除对应采购进货明细后再删除本条材料?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
    If result = dialogresult.no Then
        e.Cancel = True
    Else
        e.Cancel = True
        Forms("采购订单").show
        For Each dr As DataRow In drs
            Tables("采购订单").Filter = " 进货批次 = '" & dr("进货批次") & "'"
        Next
        'Tables("采购订单").Sort = "进货日期 DESC"
    End If
End If

采购进货 与材料    用：定额编码   连接的（无关联表）

采购订单  与材料    无连接的列，也无关联表。
此主题相关图片如下：1.png