\'数据DataColChanged
If e.DataCol.Name = "规格" Then \'
Dim d As String = e.DataRow("规格")
Dim Parts() As String = d.Split("\\")
For Each dc As String In Parts
If e.DataRow("规格") > "" Then
        Dim dr As DataRow = DataTables("规格表").Find("货品编号 = \'" & e.DataRow("货品编号") & "\' And 规格 = \'" & dc & "\'")
        If dr IsNot Nothing
            Tables("规格表").Position = Tables("规格表").FindRow(dr)
                Else
            Dim r As Row = Tables("规格表").AddNew()
            r("货品编号") = e.DataRow("货品编号")
            r("货品名称") = e.DataRow("货品名称")
            r("规格") = dc
        End If
    End If
Next
End If

主表是"货品资料","规格"列的值变化时，删除"规格表"的"货品编号"列与"货品资料"表相同，但“规格”不同的行。

请问如何设置?

——————————————————————————————————————————————————————————————————

没办法回这个贴，编辑一下看看行不行。

这样试试：

DataTables("规格表").DeleteFor("[货品编号] = \'" & e.DataRow("货品编号") & "\' And [规格] <>  \'" & e.DataRow("规格") & "\'")

这样试试：

DataTables("规格表").DeleteFor("[货品编号] = \'" & e.DataRow("货品编号") & "\' And [规格] <>  \'" & e.DataRow("规格") & "\'")