主题：[求助]复制

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复制.table

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

If e.DataCol.Name = "摘要" AndAlso e.DataRow("摘要").contains("销售") Then
     Dim dr As DataRow = DataTables("销售管理").AddNew
     For Each dc As DataCol In DataTables("销售管理").DataCols
         dr(dc.Name) = e.DataRow(dc.Name)
     Next
End If

 

如果要实时匹配，那么看看这里

 

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

 

 老师，上面代码重置摘要列后会在销售管理表中有增加原来已复制的行。

Select Case e.DataCol.name
    Case "编号"
        If e.newvalue <> Nothing AndAlso e.DataRow("摘要").contains("销售") Then
            Dim dr As DataRow = DataTables("销售管理").Find("编号 = '" & e.OldValue & "'")
            If dr Is Nothing Then
                dr = DataTables("销售管理").Find("编号 is null")
                If dr Is Nothing Then dr = DataTables("销售管理").AddNew()
            End If
            For Each dc As DataCol In DataTables("销售管理").DataCols
                dr(dc.Name) = e.DataRow(dc.Name)
            Next
        End If
    Case Else
        If e.DataRow("摘要").contains("销售") Then
            Dim dr As DataRow = DataTables("销售管理").Find("编号 = '" & e.DataRow("编号") & "'")
            If dr Is Nothing Then
                dr = DataTables("销售管理").Find("编号 is null")
                If dr Is Nothing Then dr = DataTables("销售管理").AddNew()
            End If
            For Each dc As DataCol In DataTables("销售管理").DataCols
                dr(dc.Name) = e.DataRow(dc.Name)
            Next
        End If
End Select

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.4.22.1
错误所在事件：表，进销， DataColChanged
详细错误信息：
调用的目标发生了异常。
列“编号1”不属于表 进销。


老师，我在”销售管理”表中增加一列”编号1”后会有上的报错。

 

            For Each dc As DataCol In DataTables("销售管理").DataCols
                dr(dc.Name) = e.DataRow(dc.Name)
            Next

 

改成

 

            For Each dc As DataCol In DataTables("销售管理").DataCols
                If dr.datatable.datacols.contains(dc.name) Then dr(dc.Name) = e.DataRow(dc.Name)
            Next

 

 老师，修改后还是没有用。

改成

 

            For Each dc As DataCol In e.DataTable.DataCols
                If dr.datatable.datacols.contains(dc.name) Then dr(dc.Name) = e.DataRow(dc.Name)
            Next

 

 谢谢老师，好了。