老师，退勾后怎样删除汇总表数据。谢谢老师。
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
加好友 
发短信
Post By：2025/3/4 15:48:00 [只看该作者]
