专家坐堂-同步子表中的部分列问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同步子表中的部分列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92204)

--  作者：落叶孤影
--  发布时间：2016/10/28 16:20:00
--  同步子表中的部分列问题

我在父表（成本支出）的datacolchanged事件中加了如下代码：用于同步子表（成本支出明细）中的部分列，但下面的代码都不符合要求，请问老师该怎么改？
我只想同步新增加入子表的行。
\' 以下代码只能同步子表中一行的数据!
Select Case e.DataCol.Name
    Case "编号"
        Dim dr As DataRow = DataTables("成本支出明细").Find("编号 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then
            dr = DataTables("成本支出明细").AddNew(4)
            dr("项目名称") = e.DataRow("项目名称")
            dr("日期") = e.DataRow("日期")
            dr("报表类型") = e.DataRow("报表类型")
            dr("第几周") = e.DataRow("第几周")
        Else
            dr("编号") = e.DataRow("编号")
        End If
    Case "项目名称","日期","报表类型","第几周"
        Dim dr As DataRow = DataTables("成本支出明细").Find("编号 = \'" & e.DataRow("编号") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
\' 以下代码是同步子表所有行的数据
Select Case e.DataCol.Name
    Case "项目名称"
        Dim dr As DataRow = DataTables("成本支出明细").Find("编号 = \'" & e.DataRow("编号") & "\'")
        For Each dc As DataRow In DataTables("成本支出明细").DataRows
            dc("项目名称") = e.DataRow("项目名称")
        Next
    Case "日期"
        Dim dr As DataRow = DataTables("成本支出明细").Find("编号 = \'" & e.DataRow("编号") & "\'")
        For Each dc As DataRow In DataTables("成本支出明细").DataRows
            dc("日期") = e.DataRow("日期")
        Next
    Case "报表类型"
        Dim dr As DataRow = DataTables("成本支出明细").Find("编号 = \'" & e.DataRow("编号") & "\'")
        For Each dc As DataRow In DataTables("成本支出明细").DataRows
            dc("报表类型") = e.DataRow("报表类型")
        Next
    Case "第几周"
        Dim dr As DataRow = DataTables("成本支出明细").Find("编号 = \'" & e.DataRow("编号") & "\'")
        For Each dc As DataRow In DataTables("成本支出明细").DataRows
            dc("第几周") = e.DataRow("第几周")
        Next
End Select
\' 以上两种代码都不符合要求!我

--  作者：有点蓝
--  发布时间：2016/10/28 16:31:00
--

Select Case e.DataCol.Name
Case "编号"
Dim drs As List(of DataRow) = DataTables("成本支出明细").Select("编号 = \'" & e.OldValue & "\'")
If drs.Count = 0 Then
Dim dr = DataTables("成本支出明细").AddNew(4)
dr("项目名称") = e.DataRow("项目名称")
dr("日期") = e.DataRow("日期")
dr("报表类型") = e.DataRow("报表类型")
dr("第几周") = e.DataRow("第几周")
Else
For Each r As DataRow In drs
r("编号") = e.DataRow("编号")
Next
End If
Case "项目名称","日期","报表类型","第几周"
Dim drs As List(of DataRow) = DataTables("成本支出明细").Select("编号 = \'" & e.DataRow("编号") & "\'")
For Each r As DataRow In drs
r(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
Next
End Select

--  作者：落叶孤影
--  发布时间：2016/10/28 17:21:00
--
上面的代码还是有点不太符合我的要求，我把项目上传一下，还请老师帮忙看看！
这个表是关联表，（父表-成本支出和子表-成本支出明细通过第一行的“编号”关联）在窗口点按钮控件“新增周报表”，这时会在当前表-父表增加一行，在子表增加5行。我想在增加父表的时候，子表的前几列同名列能和父表同步，如果更改父表的同名列时，子表的同名列也能同步修改。在子表再增加行时，新增加行的同名列也能和父表的同名列一致。谢谢！

[此贴子已经被作者于2016/10/28 18:16:31编辑过]

--  作者：有点蓝
--  发布时间：2016/10/28 17:50:00
--

Select Case e.DataCol.Name
Case "编号"
Dim drs As List(of DataRow) = DataTables("成本支出明细").Select("编号 = \'" & e.OldValue & "\'")
If drs.Count = 0 Then
Dim dr As DataRow
For i As Integer = 1 To 4
dr = DataTables("成本支出明细").AddNew()
dr("编号") = e.DataRow("编号")
dr("项目名称") = e.DataRow("项目名称")
dr("日期") = e.DataRow("日期")
dr("报表类型") = e.DataRow("报表类型")
dr("第几周") = e.DataRow("第几周")
Next
Else
For Each r As DataRow In drs
r("编号") = e.DataRow("编号")
Next
End If
Case "项目名称","日期","报表类型","第几周"
Dim drs As List(of DataRow) = DataTables("成本支出明细").Select("编号 = \'" & e.DataRow("编号") & "\'")
For Each r As DataRow In drs
r(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
Next
End Select

明细表DataRowAdded

Dim dr As DataRow = DataTables("成本支出").Find("编号 = \'" & e.DataRow("编号") & "\'")
If dr IsNot Nothing Then

e.DataRow("项目名称") = dr("项目名称")
e.DataRow("日期") = dr("日期")
e.DataRow("报表类型") = dr("报表类型")
e.DataRow("第几周") = dr("第几周")

End If

--  作者：落叶孤影
--  发布时间：2016/10/28 18:16:00
--
十分感谢！