主题：编辑好的清单表如何在每月统计工程量时候自动显示

If e.DataCol.name = "项目名称" Then
    Dim fdr As DataRow = e.DataTable.find("项目名称 = '" & e.DataRow("项目名称") & "'", "统计日期 desc")
   
    Dim Cols1() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
    Dim Cols2() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
    For Each dr1 As DataRow In DataTables("完成明细").Select("统计id = " & fdr("_Identify"))
        Dim dr2 As DataRow = DataTables("完成明细").find("清单名称 = '" & dr1("清单名称") & "' and 清单id = '" & dr1("清单id") & "' and 统计id = " & e.DataRow("_Identify"))
        If dr2 Is Nothing Then dr2 = DataTables("完成明细").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
        dr2("统计id") = e.DataRow("_Identify")
    Next
End If

1、你在统计表输入项目名称后，就自动整体复制了，例子就是那样的。

2、如果你完成明细没有内容，自然不能复制，没有内容复制哪里的数据？截图说明。