编辑好的清单表如何在每月统计工程量时候自动显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

改为复制清单表内容了，但这样的话必须在完成明细表内录入一条记录才可以复制清单表内容，不知问题出在哪

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("项目id"))

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))

dr2("统计id") = e.DataRow("_Identify")

End If

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