主题：删除行

'数据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("规格") & "'")

“货品资料”表的“规格”列的“大\中\小”改为“大\中”时，希望删除“规格表”的“规格”列不包含“大”、“中”的行。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table