以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]审核退勾删除数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195724)
--  作者：苏州老街
--  发布时间：2025/3/4 15:48:00
--  [求助]审核退勾删除数据
老师，退勾后怎样删除汇总表数据。谢谢老师。

If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim nma() As String = {"编号","抄表日期","项目","项目ID"} \'A表数据来源列
        Dim nmb() As String = {"编号","抄表日期","项目","项目ID"}  \'B表数据接收列
        Dim aaa() As String = {"一号楼","二号楼","三号楼"}
        e.DataRow.save
        For Each a As String In aaa
            Dim dr2 As DataRow = DataTables("汇总").Find("编号 = \'" & e.DataRow("编号") & "\' and 名称_楼号=\'" & a & "\'")             \'找到指定返回的行
            If dr2 Is Nothing Then
                Dim dr3 As DataRow = DataTables("汇总").AddNew
                For i As Integer = 0 To nma.Length - 1
                    dr3(nmb(i)) = e.DataRow(nma(i))
                Next
                dr3("名称_ID") = e.DataRow(a & "_ID")
                dr3("名称_楼号") = a
                dr3("上期") = e.DataRow(a & "_上期")
                dr3("本期") = e.DataRow(a & "_本期")
                dr3("数量") = e.DataRow(a & "_数量")
                dr3("单价") = e.DataRow(a & "_单价")
                dr3("金额") = e.DataRow(a & "_金额")
                dr3("来源") = "租房"
                \'DataTables("汇总").deletefor("编号 = \'" & e.DataRow("编号") & "\'")               
            End If
        Next
    Else
    End If
End If
--  作者：有点蓝
--  发布时间：2025/3/4 15:57:00
--  
                dr3("来源") = "租房"
                \'   
            End If
        Next
    Else
DataTables("汇总").deletefor("编号 = \'" & e.DataRow("编号") & "\'")            
    End If
End If
--  作者：苏州老街
--  发布时间：2025/3/4 16:00:00
--  
谢谢老师