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

把数据填充进去

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

http://www.foxtable.com/webhelp/scr/0680.htm

 

统计的datacolchanged事件

 

If e.DataCol.Name = "统计日期" 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("清单id = '" & dr1("清单id") & "'")
        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

 看不懂你的逻辑，把清单表的数据填充过去，就是9楼的代码，你希望如何填充？截图举例说明。

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

回复17楼，你的项目没问题啊。新增一行，填入数据 佛冈县青松东路（文明路至龙凤大道段）建设工程PPP项目，就自动填充了啊

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

 

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

请理清你自己的逻辑。

 

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

 

你完成明细表没有数据，怎么复制？

参考

 

'整体复制清单,按期填写清单完成量
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

 看不懂你要做什么。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

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