Foxtable(狐表) → 用户栏目 → 专家坐堂 → 编辑好的清单表如何在每月统计工程量时候自动显示


  共有3455人关注过本帖树形打印复制链接

主题：编辑好的清单表如何在每月统计工程量时候自动显示
帅哥哟，离线，有人找我吗？
chengjingliang
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00 		  发帖心情 Post By：2017/8/2 23:56:00 [只看该作者]

改为复制清单表内容了，但这样的话必须在完成明细表内录入一条记录才可以复制清单表内容，不知问题出在哪
 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))
        Next
        dr2("统计id") = e.DataRow("_Identify")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
chengjingliang
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00 		  发帖心情 Post By：2017/8/3 6:28:00 [只看该作者]

无数据界面
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
新增统计，完成明细表无法整体复制清单表
图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
新增完成明细一行
图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
再新增统计，完成明细就可以整体复制清单表，如何省略新增完成明细一行就能实现整体复制
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/3 8:53:00 [只看该作者]

请理清你自己的逻辑。

 

你要复制的数据从哪里来？从哪里复制到哪里？

 

你完成明细表没有数据，怎么复制？
 回到顶部
帅哥哟，离线，有人找我吗？
chengjingliang
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00 		  发帖心情 Post By：2017/8/3 11:19:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/3 11:49:00 [只看该作者]

参考

 

'整体复制清单,按期填写清单完成量
If e.DataCol.name = "项目id" Then
    Dim Cols1() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
    Dim Cols2() As String = {"清单ID","单位工程","清单号","清单名称","单位","单价"}
    For Each dr1 As DataRow In DataTables("清单").Select("项目id = " & e.DataRow("项目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))
        Next
        dr2("统计id") = e.DataRow("_Identify")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
chengjingliang
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00 		  发帖心情 Post By：2017/8/3 11:58:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
chengjingliang
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00 		  发帖心情 Post By：2017/8/15 15:47:00 [只看该作者]

还是整体复制问题，新增工程项目时，我想把主表单价列表和子表单价明细表，分别整体复制到工料单价表和工料明细表中，方法还是没有掌握，还请老师指教！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成本测算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))
        Next
        dr2("项目id") = e.DataRow("_Identify")
    Next
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))
        Next
      '  dr2("项目id") = e.DataRow("_Identify")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/15 16:03:00 [只看该作者]

 看不懂你要做什么。DataRowAdded事件，写代码，查考着改。

 

e.DataRow.save
Dim Cols1() As String = {"工料一类","工料单位","工料单价"}
Dim Cols2() As String = {"工料一类","工料单位","工料单价"}
For Each dr1 As DataRow In DataTables("单价列表").Select("")
    Dim dr2 As DataRow = DataTables("工料单价").find("工料名称= '" & dr1("工料名称") & "' and _Identify = " & 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
Next
 回到顶部
帅哥哟，离线，有人找我吗？
chengjingliang
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00 		  发帖心情 Post By：2017/8/15 16:54:00 [只看该作者]

新增工程项目时，我想把主表单价列表和子表单价明细表，分别整体复制到工料单价表和工料明细表中，但是新增工程项目还是不能自动复制单价列表和子表单价明细表，重新上传！请指导！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成本测算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))
        Next
        dr2("项目id") = e.DataRow("_Identify")
    Next
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))
        Next
        dr2("项目id") = e.DataRow("_Identify")
    Next
End If

[此贴子已经被作者于2017/8/15 16:55:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/15 17:44:00 [只看该作者]

看28楼，在datarowadded事件写代码。

 回到顶部
总数 30 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05896 秒, 6 次数据查询