主题：如何遍历一个表的所有子关联表？

各位老师，

比如“产品编码”表与很多表“订单明细，入库明细，出库明细”等都建立了关联，现在如果在“产品编码”表中要删除一个编码，

想写类似下面的代码做出提示(此代码只是在订单表中删除时提示）;

If e.DataRow.GetChildRows("订单明细").Count > 0 Then
    Dim s As String = "此订单存在订单明细, 确定要删除此订单及其订单明细?"
    If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No
        e.Cancel= True
    End If
End If

想请教大家 如何遍历产品编码表的所有子关联表，然后做出判断，这种通用的代码要怎么写？

谢谢！

试试吧：

For Each tb As Table In Tables
    if tb.name.contains("产品编码")
        Output.Show(tb.Name)
    end if
Next

谢谢e-png， 很灵活的思路，运行后可以得到包括产品编码在内的所有关联表。