A表逻辑列取消勾选则B表相同行数据删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "提交"
    If e.DataRow("提交") = True Then
        Dim nma() As String = {"_Identify", "采购编号" , "项目名称","申购人" } 'A表数据来源列
        Dim nmb() As String = {"加一列", "采购编号" , "项目名称","申购人" } 'B表数据接收列
        e.DataRow.save
        Dim dr As DataRow = DataTables("采购审核表").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next

    Else
        DataTables("采购审核表").deletefor("加一列 = '" & e.DataRow("_Identify") & "'")
    End If
End If

主题：A表逻辑列取消勾选则B表相同行数据删除