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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  A表逻辑列取消勾选则B表相同行数据删除  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81978)

--  作者：kittyzhang
--  发布时间：2016/3/9 16:54:00
--  A表逻辑列取消勾选则B表相同行数据删除
各位大神

如果我A表，有个逻辑列，勾选后，A表的其中部分列会填入B表的部分列

然后我希望如果我A表这个逻辑列取消勾选，B表的对应行也同时删除。

下次逻辑列勾选后，A表数据重新自动填入B表

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

--  作者：kittyzhang
--  发布时间：2016/3/9 17:08:00
--
能解决么？

--  作者：大红袍
--  发布时间：2016/3/9 17:25:00
--
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

--  作者：kittyzhang
--  发布时间：2016/3/10 9:05:00
--
按思路做了点修改，可以了~谢谢~