主题：物料明细

1、参考

http://www.foxtable.com/webhelp/scr/2481.htm

2、订单明细表，currentChanged事件

Dim r As Row = e.Table.current
If r IsNot Nothing Then
    Dim i = Tables("物料明细").findrow("物料编号='" & r("物料编号") & "'")
    If i >= 0 Then
        Tables("物料明细").Position = i
    End If
    i = Tables("入库主表").findrow("物料编号='" & r("物料编号") & "'")
    If i >= 0 Then
        Tables("入库主表").Position = i
    End If
End If

Dim r As Row = e.Table.current
If r IsNot Nothing Then

    Tables("物料明细").filter = ""
    Dim i = Tables("物料明细").findrow("物料编号='" & r("物料编号") & "'")
    If i >= 0 Then
        Tables("物料明细").Position = i

    Else

        Tables("物料明细").filter = "1=2"
    End If

    Tables("入库主表").filter = ""
    i = Tables("入库主表").findrow("物料编号='" & r("物料编号") & "'")
    If i >= 0 Then
        Tables("入库主表").Position = i

    Else

        Tables("入库主表").filter = "1=2"
    End If
End If

1、请说明如何操作，执行什么代码，报什么错。

2、如果是这段代码报错，说明你入库主表根本就没有数据，肯定不能删除

If Tables("入库主表.入库明细表").Rows.Count > 0 Then
    MessageBox.Show("该订单有明细项,请先删除明细项再删除订单")
    Return
Else
    If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("入库主表").Current.Delete
    End If
End If