专家坐堂-[求助]复制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=127389)

--  作者：江南小镇
--  发布时间：2018/11/13 8:23:00
--  [求助]复制
老师好，我想根据表A第一列中的字段（老师好）的行自动复制到表B中。

--  作者：有点甜
--  发布时间：2018/11/13 8:57:00
--

参考

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

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

--  作者：江南小镇
--  发布时间：2018/11/13 11:18:00
--

以下是引用江南小镇在2018/11/13 8:23:00的发言：
老师好，我想根据表A第一列中的字段（老师好）的行自动复制到表B中。
老师，没有关联列和逻辑列，我是要把表A第一列含有每-个（如：销售）的字段这一行复制到表B中

--  作者：有点甜
--  发布时间：2018/11/13 12:07:00
--

参考你以前的代码啊

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

--  作者：江南小镇
--  发布时间：2018/11/13 13:04:00
--
老师，有的搞不清楚。

--  作者：有点甜
--  发布时间：2018/11/13 14:39:00
--

以下是引用江南小镇在2018/11/13 13:04:00的发言：
老师，有的搞不清楚。

什么搞不清楚？

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

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

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

--  作者：江南小镇
--  发布时间：2018/11/13 16:51:00
--

老师，我只想把摘要列中含有苏州字段的行复制到表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

--  作者：江南小镇
--  发布时间：2018/11/13 21:32:00
--

以下是引用有点甜在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

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

--  作者：有点蓝
--  发布时间：2018/11/13 21:47:00
--
上传具体实例说明