[求助]复制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，我想根据表A第一列中的字段（老师好）的行自动复制到表B中。

以下是引用江南小镇在2018/11/13 8:23:00的发言：
老师好，我想根据表A第一列中的字段（老师好）的行自动复制到表B中。

老师，没有关联列和逻辑列，我是要把表A第一列含有每-个（如：销售）的字段这一行复制到表B中

老师，有的搞不清楚。

老师，我只想把摘要列中含有苏州字段的行复制到表B

图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png

[此贴子已经被作者于2018/11/13 16:53:13编辑过]

以下是引用有点甜在2018/11/13 17:52:00的发言：

Select Case e.DataCol.name
    Case "摘要"
        If e.newvalue <> Nothing AndAlso e.newvalue.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()
                dr("摘要") = e.DataRow("摘要")
            Else
                dr("摘要") = e.DataRow("摘要")
            End If
        End If
End Select

老师，上面代码不能正行引用。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:复制.table

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

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

以下是引用有点甜在2018/11/14 15:07:00的发言：
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”后会有上的报错。

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

谢谢老师，好了。

主题：[求助]复制