主题：[求助]复制

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

参考

 

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

 

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

 

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

参考你以前的代码啊

 

Select Case e.DataCol.name
    Case "摘要"
        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 Select

老师，有的搞不清楚。

 

什么搞不清楚？

 

1、直接用4楼代码怎么样？

 

2、如果你要判断包含某个字符，参考 http://www.foxtable.com/webhelp/scr/1422.htm

 

3、不会做上传具体实例测试

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

 

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

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

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

上传具体实例说明