编辑好的清单表如何在每月统计工程量时候自动显示 - 专家坐堂 - 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

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

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

无数据界面

此主题相关图片如下：1.png

新增统计，完成明细表无法整体复制清单表
图片点击可在新窗口打开查看

此主题相关图片如下：2.png

新增完成明细一行

此主题相关图片如下：3.png

再新增统计，完成明细就可以整体复制清单表，如何省略新增完成明细一行就能实现整体复制

从清单表复制到完成明细表

感谢各位老师不吝赐教！能够不厌其烦回答问题，非常感谢！

还是整体复制问题，新增工程项目时，我想把主表单价列表和子表单价明细表，分别整体复制到工料单价表和工料明细表中，方法还是没有掌握，还请老师指教！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成本测算170815.rar

''整体复制单价列表至工料单价表

If e.DataCol.name = "项目id" Then

Dim Cols1() As String = {"财务列表ID","一类费用","二类费用","一类成本","二类成本"}

Dim Cols2() As String = {"财务列表ID","一类费用","二类费用","一类成本","二类成本"}

For Each dr1 As DataRow In DataTables("单价列表").Select("")

Dim dr2 As DataRow = DataTables("工料单价").find("工料名称= '" & dr1("工料名称") & "' and 财务列表ID = '" & e.DataRow("财务列表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

''整体复单价明细表至工料明细表

If e.DataCol.name = "项目id" Then

Dim Cols1() As String = {"工料一类","工料二类","工料名称","工料单位","工料单价","含量","编号","单价明细ID","单价列表ID"}

Dim Cols2() As String = {"工料一类","工料二类","工料名称","工料单位","工料单价","含量","编号","单价明细ID","工料ID"}

For Each dr1 As DataRow In DataTables("单价明细").Select("")

Dim dr2 As DataRow = DataTables("工料明细").find("单价明细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

新增工程项目时，我想把主表单价列表和子表单价明细表，分别整体复制到工料单价表和工料明细表中，但是新增工程项目还是不能自动复制单价列表和子表单价明细表，重新上传！请指导！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成本测算170815.rar

''整体复制单价列表至工料单价表

If e.DataCol.name = "项目id" Then

Dim Cols1() As String ={"工料一类","工料二类","工料名称","工料单位","工料单价","单价列表ID","备注"}

Dim Cols2() As String ={"工料一类","工料二类","工料名称","工料单位","工料单价","单价列表ID","备注"}

For Each dr1 As DataRow In DataTables("单价列表").Select("")

Dim dr2 As DataRow = DataTables("工料单价").find("工料名称= '" & dr1("工料名称") & "' and 财务列表ID = '" & e.DataRow("财务列表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

'整体复单价明细表至工料明细表

If e.DataCol.name = "项目id" Then

Dim Cols1() As String = {"工料一类","工料二类","工料名称","工料单位","工料单价","含量","编号","单价明细ID","单价列表ID"}

Dim Cols2() As String = {"工料一类","工料二类","工料名称","工料单位","工料单价","含量","编号","单价明细ID","工料ID"}

For Each dr1 As DataRow In DataTables("单价明细").Select("")

Dim dr2 As DataRow = DataTables("工料明细").find("单价明细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

[此贴子已经被作者于2017/8/15 16:55:57编辑过]

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