在 NodeMouseDoubleChick 中,把这个 Dim r As Row = Tables("入库明细").Current 改为:
Dim r As Row = Tables("入库单.入库明细").Current