新增项目表记录时，整体复制表中内容到项目表子表工料单价表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新增项目表记录时，整体复制表中内容到项目表子表工料单价表中

共有1446人关注过本帖树形打印复制链接主题：新增项目表记录时，整体复制表中内容到项目表子表工料单价表中

chengjingliang

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

新增项目表记录时，整体复制表中内容到项目表子表工料单价表中 发帖心情

Post By：2017/8/16 12:12:00 [只看该作者]

新增项目表记录时，整体复制表中内容到项目表子表工料单价表中，怎么做？我按照之前有点甜老师指点的方法，做了另一个复制项目好长时间做不好，不知什么原因

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 12:32: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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

Post By：2017/8/16 13:31:00 [只看该作者]

弹出调用目标发生异常
图片点击可在新窗口打开查看

此主题相关图片如下：b(r(l8x5$jg%kkeqb@y6m.png

工程项目表子表工料单价还是没有数据，没有把单价列表复制过来
图片点击可在新窗口打开查看

此主题相关图片如下：~o9pw9%)et@~3_`uri57ic.png

不知哪里出错了？

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

e.DataRow.save

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 = '" & dr1("单价列表id") & "' 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))

' dr2("项目id") = e.DataRow("_Identify")

'End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 14:28:00 [只看该作者]

e.DataRow.save
systemready = false
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 = '" & dr1("单价列表id") & "' 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
systemready = true

chengjingliang

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：250 积分：1813 威望：0 精华：0 注册：2012/6/28 13:53:00

Post By：2017/8/16 15:11:00 [只看该作者]

还是复制不了，在工程项目表内新增记录后，还是不能把单价列表复制到工料单价表内

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 15:17:00 [只看该作者]

e.DataRow.save
systemready = False
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 = '" & dr1("单价列表id") & "' 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
    dr2("项目id") = e.DataRow("_Identify")
Next
systemready = True

下一主题 >> << 上一主题

主题：新增项目表记录时，整体复制表中内容到项目表子表工料单价表中