If e.DataCol.Name = "审核"
if e.DataRow("审核") = True Then
Dim dr3 As DataRow = DataTables("一号楼").find("项目ID=" & e.DataRow("项目ID") & "'")
if dr3 is nothing then
Dim nma() As String = {"项目","项目ID","抄表日期","时段","年","月份"} 'A表数据来源列
Dim nmb() As String = {"项目","项目ID","抄表日期","时段","年","月份"} '原材料数据接收列
Dim nmc() As String = {"项目","项目ID","抄表日期","时段","年","月份"} '原材料数据接收列
Dim nmd() As String = {"项目","项目ID","抄表日期","时段","年","月份"} '原材料数据接收列
dr3 = DataTables("一号楼").AddNew
Dim dr1 As DataRow = DataTables("二号楼").AddNew
Dim dr2 As DataRow = DataTables("三号楼").AddNew
For i As Integer = 0 To nma.Length - 1
dr3(nmb(i)) = e.DataRow(nma(i))
dr1(nmc(i)) = e.DataRow(nma(i))
dr2(nmd(i)) = e.DataRow(nma(i))
Next
end if
else
DataTables("一号楼").deletefor("项目ID=" & e.DataRow("项目ID") & "'")
DataTables("二号楼").deletefor("项目ID=" & e.DataRow("项目ID") & "'")
end if
End If
加好友 
发短信
Post By：2023/12/5 8:38:00 [显示全部帖子]
