主题：跨表增减行

Dim Multi As String = Tables("货品资料").Current("规格")

Dim Values() As String

Values = Multi.split("\")

For Index As Integer = 0 To Values.Length - 1

    Dim dr As DataRow

    dr = DataTables("规格表").Find("[货品编号] = '" &  Tables("货品资料").Current("货品编号") & "'And [规格] In ('" & Values(Index) & "')")

    If dr IsNot Nothing Then

        MessageBox.Show(dr("规格"))

        dr.Delete

    End If

Next

老大我的代码是不是要简单些?